|
%I #14 Jun 26 2018 04:55:34
%S 1,2,-1,2,0,2,-1,4,1,4,-2,8,2,10,-1,12,3,16,-3,20,3,28,-3,34,4,42,-5,
%T 52,5,64,-7,84,8,100,-8,120,9,148,-10,176,13,218,-15,260,14,308,-17,
%U 368,20,436,-23,524,24,616,-26,724,31,852,-34,996,38,1178,-41,1370,46,1592,-52,1856,55
%N McKay-Thompson series of class 40c for the Monster group.
%C Essentially the same as A058666. - _R. J. Mathar_, Mar 23 2012
%H G. C. Greubel, <a href="/A112181/b112181.txt">Table of n, a(n) for n = 0..2500</a>
%H D. Ford, J. McKay and S. P. Norton, <a href="http://dx.doi.org/10.1080/00927879408825127">More on replicable functions</a>, Comm. Algebra 22, No. 13, 5175-5193 (1994).
%H <a href="/index/Mat#McKay_Thompson">Index entries for McKay-Thompson series for Monster simple group</a>
%F Expansion of A + 2*q/A, where A = q^(1/2)*(eta(q^2)*eta(q^10)/( eta(q^4)* eta(q^20))), in powers of q. - _G. C. Greubel_, Jun 26 2018
%e T40c = 1/q +2*q -q^3 +2*q^5 +2*q^9 -q^11 +4*q^13 +q^15 +4*q^17 +...
%t eta[q_] := q^(1/24)*QPochhammer[q]; A:= q^(1/2)*(eta[q^2]*eta[q^10]/( eta[q^4]*eta[q^20])); a := CoefficientList[Series[A + 2*q/A, {q, 0, 60}], q]; Table[a[[n]], {n, 1, 50}] (* _G. C. Greubel_, Jun 26 2018 *)
%o (PARI) q='q+O('q^50); A = (eta(q^2)*eta(q^10)/(eta(q^4)*eta(q^20))); Vec(A + 2*q/A) \\ _G. C. Greubel_, Jun 26 2018
%K sign
%O 0,2
%A _Michael Somos_, Aug 28 2005
|
