%我#28 2022年9月8日08:45:44

%S 1，-1,0，-1,0,0,1,1，-1,0-0,0,0，1，-2,1,0,3,0,0-，-2，-2,0,0.，-1.0,0，-1，0,2，

%T 0，-1,0,0,0，0,1,4,0,2,0,0，

%U 0，-1，-1，-2,0,0,0-0,4,2，-3,0,2,0,2,2，-2,0

%N eta（q）*eta（q^4）*eta（q^14）^4/。

%C Ramanujan theta函数：f（q）（见A121373）、phi。

%C独特的尖点形状，重量3/2，等级28和琐碎字符。

%H G.C.Greubel，n表，n=1..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以q的幂展开q*psi（-q）*psi（-q^7）*phi（q ^7），其中phi（）、psi（）是Ramanujan theta函数_迈克尔·索莫斯（Michael Somos），2012年8月15日

%周期28序列的F Euler变换[-1，0，-1，-1，0_迈克尔·索莫斯（Michael Somos），2012年8月15日

%F G.F.是满足F（-1/（28t））=56^（1/2）（t/i）^（3/2）G（t）的周期1傅立叶级数，其中q=exp（2pi i t），G（）是A215556的G.F_迈克尔·索莫斯（Michael Somos），2012年8月15日

%F a（7*n+3）=a（7*n+5）=a（7*n+6）=0。a（7*n）=A215556（n）.-_迈克尔·索莫斯（Michael Somos），2012年8月15日

%e G.f=q-q^2-q^4+q^7+q^8-q^9+q^14-2*q^15+q^16+3*q^18-2*q ^21+。。。

%t最大值=100；s28=表格[{-1，0，-1，-1，-1,0,0，-1；coes=级数[1+和[a[n]*x^n，{n，1，max}]-乘积[1/（1-x^n）^s28[[n]]，{n、1，max{]，{x，0，max}]//系数列表[#，x]&；sol=求解[Thread[coes==0]]；联接[{1}，表[a[n]，{n，1，max}]/。sol//First]（*Jean-François Alcover，2013年6月20日*）

%t a[n_]：=级数系数[EllipticTheta[2，Pi/4，q^（1/2）]椭圆Theta[2，Pi/4，q^（7/2）]椭圆theta[3，0，q^7]/2，{q，0，n}]；（*_Michael Somos，2015年8月26日*）

%t a[n_]：=级数系数[2^（-1/2）q^（7/8）椭圆Theta[2，Pi/4，q^；（*迈克尔·索莫斯，2015年9月6日*）

%t a[n_]：=系列系数[q乘积[（1-q^k）^{1，0，1，1，1,1，0,0,1，1,0,1,1，3,1，1,1,1,0,1,1,0,0,1，1,1,1,1,3}[[模式[k，28，1]]，{k，n-1}]，{q，0，n}]；（*迈克尔·索莫斯，2015年9月6日*）

%o（岩浆）基础（Cuspidal子空间（半积分权重形式（28,3/2）），100）

%o（岩浆）A:=基础（CuspForms（伽马1（28），3/2），81）；A[1]-A[2]；/*_Michael Somos，2015年9月6日*/

%o（PARI）{a（n）=我的（a）；如果（n<1，0，n---；a=x*o（x^n_Michael Somos_，2012年8月15日*/

%Y参见A215556。

%K符号

%O 1,15号

%A _斯蒂芬芬奇，2009年4月22日