| 黄体脂酮素
|
(PARI){a(n)=地方的我的(A) ;如果(n<0,0,A=和(k=1,平方(n),2*x^k^2,1+x*O(x^n));波尔科夫(A^3*(8*A^4-7*子集(A,x,-x)^4),n))}/*迈克尔·索莫斯2006年10月24日*/
(PARI){a(n)=我的(G公司);如果(n<1,n==0,2*qfrep公司([G公司= [2, -1, 0, 0, 0, 0, 0; -1, 2, -1, 0, 0, 0, 0; 0, -1, 2, -1, 0, 0, 0; 0, 0, -1, 2, -1, 0, -1; 0, 0, 0, -1, 2, -1, 0; 0, 0, 0, 0, -1, 2, 0; 0, 0, 0, -1, 0, 0,2];2],*qfrep公司(G公司,n、 1)[n])}/*迈克尔·索莫斯2007年6月11日*/
(MAGMA)A:=基础(模块形式(Gamma0(4),7/2),50) ;);甲[1]+126*甲[2] ; /* _]; /* _迈克尔·索莫斯(Michael Somos),2014年6月9日*/
|