%I#19 2021年3月12日22:24:41
%编号:1,2813456818095316139903469680724180068384940796760,
%电话159878931273605971922111702049103336947445553412,
%电话:114619248197681341336670120566630192943234040155394144525353256444098671374656893120010441889389
%N((theta_2)^4+(theta_3)^4)/eta(z/2)^4的展开式。
%C Ramanujan theta函数:f(q)(见A121373)、phi。
%H G.C.Greubel,n表,n=0..1000时的a(n)</a>
%H Michael Somos,《Ramanujan theta函数简介》</a>
%H Eric Weisstein的数学世界,<a href=“http://mathworld.wolfram.com/RamanujanThetaFunctions.html“>Ramanujan Theta函数</a>
%F(φ(x)^4+16*x*psi(x^2)^4)/F(-x)^4的x次幂展开式,其中phi()、psi()、F()是Ramanujanθ函数_Michael Somos,2013年9月30日
%F(phi(x)^4+phi(-x)^4)/(2*F(-x^2)^4_Michael Somos,2013年9月30日
%F a(n)=A101127(2*n)_Michael Somos,2013年9月30日
%F a(n)~exp(2*Pi*sqrt(2*n/3))/(2^(7/4)*3^(1/4)*n^(3/4))_瓦茨拉夫·科特索维奇,2018年4月19日
%总资产=1+28*x+134*x^2+568*x^3+1809*x^4+5316*x^5+13990*x^6+。。。
%e.G.f.=1/q+28*q^5+134*q^11+568*q^17+1809*q^23+5316*q^29+。。。
%t a[n_]:=系列系数[(QPochhammer[x,x^2]^8+QPochhammer[-x,x^2]^8)/2,{x,0,2n}];(*迈克尔·索莫斯,2013年9月30日*)
%t a[n_]:=系列系数[系列系数[(椭圆θ[3,0,q]^4+椭圆θ[2,0,q]^4)/QPochhammer[q]^4,{q,0,n}];(*迈克尔·索莫斯,2013年9月30日*)
%o(PARI){a(n)=如果(n<0,0,polceoff(prod(k=1,n,1+x^(2*k-1),1+x*o(x^,2*n)))};/*_Michael Somos,2013年9月30日*/
%Y参考A101127。
%K nonn公司
%0、2
%A _N.J.A.斯隆_
|