a[n_]:=模块[{a,x},a=x;做[a+=xO[x]^k;A=正常[A]+x^k((-4)^(k-1)CatalanNumber[k-1]-系列系数[ComposeSeries[A,A],k])/2,{k,2,n}];效率[A,x,n]];
(*第二个节目*)
T[n_,k_]:=T[n,k]=如果[k<0||k>n,0,如果[n==0,0,If[k==n,1,2^(2*n-2*k-1)*(k/n)*二项式[2*n-k-1,n-1]-(1/2)*和[T[n、n-j-1]*T[n-j-1,k],{j,0,n-k-2}]];
a[n]:=(-1)^(n+1)*T[n,1];
|