(PARI){a(n)=my(a=[1,1]);对于(i=0,n,a=concat(a,0);
A[#A]=polceoff(总和(n=0,#A+1,x^n*(序列(A)^n-1)^n/(1-x*Ser(A))^n)^(n+1));
波尔科夫(Ser(A),n)}
对于(n=0,40,打印1(a(n),“,”)
(PARI){a(n)=my(a=[1,1]);对于(i=0,n,a=concat(a,0);
A[#A]=polcoeff(总和(n=0,#A+1,x^n*(序列(A)^n+1)^n/(1+x*Ser(A)*n)^(n+1)),#A-1));
波尔科夫(Ser(A),n)}
对于(n=0,40,打印1(a(n),“,”)