%I#12 2021年3月12日22:24:46

%S 1，-4,14，-36,85，-180360，-6841246，-21963754，-626410226，-16380，

%电话：25804、-4003261275、92628138452、204804300040、435672627356，

%电话：-8964001271525，-17913242507426，-34884724825531，-66386889085888，-12373992

%N（1/q）*（（chi（q^3）*chi（-q^6））/（chi。

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

%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-c（-q）*b（q^4）/（b（-q）*c（q^4））以q的幂展开，其中b（），c（）是三次AGM函数。

%F（eta（q）*eta（q^4）^2*eta。

%周期12序列的F Euler变换[-4，8，0，0，0-4，0，-4，0-0，8，-4，0，…]。

%F a（n）=-（-1）^n*A187091（n）。a（2*n）=-4*A128643（n）。

%F a（n）~-（-1）^n*exp（2*Pi*sqrt（n/3））/（2*3^（1/4）*n^（3/4））_Vaclav Kotesovec_，2017年9月7日

%e 1/q-4+14*q-36*q^2+85*q^3-180*q^4+360*q^5-684*q^6+1246*q^7+。。。

%t QP:=Q手锤；A193522[n_]：=系列系数[（（QP[q]*QP[q^4]^2*QP[q^6]^3）/（QP[q^2]^3*QP[q^3]*QP[q^12]^2））^4，{q，0，n}]；表[A193522[n]，{n，0，50}]（*_G.C.Greubel_，2017年12月24日*）

%o（PARI）{a（n）=局部（a）；如果（n<-1，0，n++；a=x*o（x^n）；polceoff（（eta（x+a）*eta（x^4+a）^2*eta

%Y参考A128643，A187091。

%K符号

%O-1、2

%A _迈克尔·索莫斯，2011年7月29日