|
|
A058629
|
|
McKay-Thompson series of class 32A for Monster.
|
|
1
|
|
|
1, 0, 2, 4, 6, 8, 12, 16, 23, 32, 42, 56, 74, 96, 124, 160, 203, 256, 324, 404, 502, 624, 768, 944, 1156, 1408, 1710, 2072, 2500, 3008, 3612, 4320, 5157, 6144, 7296, 8648, 10232, 12072, 14220, 16720, 19616, 22976, 26868, 31360, 36546, 42528, 49404, 57312
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
-1,3
|
|
LINKS
|
|
|
FORMULA
|
Expansion of A - 2, where A = (eta(q^2)*eta(q^16))^3/( eta(q)^2*eta(q^4) *eta(q^8)*eta(q^32)^2), in powers of q. - G. C. Greubel, Jun 23 2018
|
|
EXAMPLE
|
T32A = 1/q + 2*q + 4*q^2 + 6*q^3 + 8*q^4 + 12*q^5 + 16*q^6 + 23*q^7 + ...
|
|
MATHEMATICA
|
eta[q_] := q^(1/24)*QPochhammer[q]; A := (eta[q^2]*eta[q^16])^3/( eta[q]^2*eta[q^4]*eta[q^8]*eta[q^32]^2); a:= CoefficientList[Series[ q*(-2 + A), {q, 0, 60}], q]; Table[a[[n]], {n, 1, 50}] (* G. C. Greubel, Jun 23 2018 *)
|
|
PROG
|
(PARI) q='q+O('q^50); A = (eta(q^2)*eta(q^16))^3/( eta(q)^2*eta(q^4) *eta(q^8)*eta(q^32)^2)/q; Vec(A - 2) \\ G. C. Greubel, Jun 23 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|