%I#18 2021年3月12日22:24:47
%S 1,-1,1,-2,2,-3,4,-6,7,-9,12,-14,18,-22,28,-34,41,-50,60,-72,86,-105,
%电话124,-146174,-204240,-282332,-386450,-524606,-703812,-9401082,
%U-12431428、-16361873、-21402448、-2783172、-36104096、-46465264、-5962
%N 1/(chi(x)*chi(x^7))的x次幂展开式,其中chi()是Ramanujanθ函数。
%C Ramanujan theta函数:f(q)(见A121373)、phi。
%H G.C.Greubel,n表,n=0..1500时的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^(-1/3)*eta。
%周期28序列的F Euler变换[-1,1,-1,0,-1,1。
%F给定g.F.A(x),则B(q)=q*A(q^3)满足0=F(B(q。
%F G.F.是周期1傅里叶级数,满足F(-1/(252 t))=F(t),其中q=exp(2 Pi it)。
%F G.F.:产品{k>0}(1+(-x)^k)*(1+x)^(7*k))。
%F a(n)=(-1)^n*A093950(n)。
%F A112212的卷积逆。
%e G.f.=1-x+x^2-2*x^3+2*x^4-3*x^5+4*x^6-6*x^7+7*x^8-9*x^9+。。。
%e G.f=q-q^4+q^7-2*q^10+2*qq^13-3*q^16+4*q^19-6*q^22+7*q^25+。。。
%t a[n_]:=系列系数[积[1+(-x)^k,{k,n}]积[1+;
%t a[n_]:=级数系数[QPochhammer[x,-x]QPochharmer[x^7,-x^7],{x,0,n}];
%t eta[q_]:=q^(1/24)*q赭锤[q];a: =系数列表[级数[q^(-1/3)*eta[q]*eta[q^4]*eta[q^7]*eta[q^28]/(eta[q ^2]*eta[0q ^14])^2,{q,0,60}],q];表[a[[n]],{n,1,50}](*_G.C.Greubel_,2018年7月4日*)
%o(PARI){a(n)=如果(n<0,0,polcoeff(prod(k=1,n,1+(-x)^k,1+x*o(x^n))*prod(k=1,n \ 7,1+;
%o(PARI){a(n)=我的(a);如果(n<0,0,a=x*o(x^n;
%Y参考A093950,A112212。
%K符号
%0、4
%A _迈克尔·索莫斯,2014年9月2日
|