(PARI){a(n)=局部(a,B);如果(n<0,0,a=x*O(x^n);B=64*x^3*(eta(x^12+a)/eta(x^3+a))
(PARI){a(n)=局部(a,p,e,i,x,y,a0,a1);如果(n<0,0,n=4*n+1;a=因子(n);prod(k=1,matsize(a)[1],if(p=a[k,1],e=a[k,2]);如果^2,&y),x=i;中断));如果(p%12==5,a1=8*x*y*(x-y)*(x+y)x(-1)^(x%6==1)+(y%6==4)),a1=2*(x^2-y^2+2*x*y)*(x*2-y^2-2*x*y)*(-1)^(x%6==3));a0=1;y=a1;对于(i=2,e,x=y*a1-p^4*a0;a0=a1;a1=x);a1))}
|