(PARI){a(n)=如果(n<0,0,polceoff(x*prod(k=1,(n+1)\2,(1+x^(2*k))/(1-x^,2*k-1)),1+x*O(x^n))^8,n))};
(PARI){a(n)=我的(a);如果(n<1,0,n---;a=x*O(x^n);polceoff((eta(x^4+a)/eta(x+a))^8,n))};
(PARI)a(n)={本地(a);n--;a=x*O(x^n);polceoff((eta(x^4+a)/eta(x+a))^8,n);}{对于(n=11000,写入(“b092877.txt”,n,“”,a(n\\哈里·史密斯2009年6月21日