(PARI)/*使用双无穷级数*/
{a(n)=我的(a=[1]);对于(i=1,n,a=连接(a,0));
A[#A]=极坐标(3*x-和(m=-#A,#A,x^(m*(3*m-1)/2)*Ser(A)^(3*m-1)*(x^m*Ser;答[n+1]}
对于(n=0,30,打印1(a(n),“,”)
(PARI)/*使用五倍产品*/
{a(n)=my(a=[1]);对于(i=1,n,a=concat(a,0);
A[#A]=波尔科夫(3*x-prod(m=1,#A,(1-x^m)*(1-x*Ser(A))*(1-x^(m-1)/Ser(A),*(1-x ^(2*m-1)*Ser;答[n+1]}
对于(n=0,30,打印1(a(n),“,”)