俺贴一个打表程序
var i,j,k,x,y,z,n:longint;
    f:array[-10..100]of *****;
begin
  f[0]:=1;
  f[1]:=1;
  for i:=2 to 100 do begin
    for j:=0 to i-1 do f[i]:=f[i]+f[j]*f[i-j];
    writeln(f[i]);
  end;

end.
*****处要用高精度（INT64不够）