(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)+1)^n/(1+x*Ser(A)*n)^;
波尔科夫(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]=polceoff(总和(n=0,#A+1,x^n*(序列(A)^(n+1)-1)^n/(1-x*Ser(A)*n)^;
波尔科夫(Ser(A),n)}
对于(n=0,40,print1(a(n),“,”)
|