%I#19 2017年7月25日04:11:56
%编号:2,2412436874612822203536496469049536121121563020592,
%电话:2458829636323747243296504926145668724795956956095404104352118226,
%电话:137392148636167920191904204712
%相对于边缘中点的D8晶格的Nθ系列。
%H Vincenzo Librandi,n表,n=0..1000时的a(n)</a>
%F G.F.:(1/2)*(θ_2^2*θ_3^6)。
%2017年7月24日,q^(-1/2)*2*(eta(q^2)^7/(eta
%t项=30;列出@@Normal[(1/2)*EllipticTheta[2,0,z]^2*EllipticTheta[3,0,z]^6+O[z]^项]/。z->1(*Jean-François Alcover,2017年7月6日*)
%t a[n_]:=级数系数[EllipticTheta[2,0,x^(1/2)]^4椭圆Theta[3,0,x]^4/(8平方[x]),{x,0,n}];(*迈克尔·索莫斯,2017年7月24日*)
%o(PARI){a(n)=我的(a);如果(n<0,0,a=x*o(x^n);2*polceoff((eta(x^2+a)^7/(eta_Michael Somos,2017年7月24日*/
%Y参考A045822。
%K nonn公司
%0、1
%A _N.J.A.斯隆_