|
|
A058564
|
|
McKay-Thompson series of class 21B for Monster.
|
|
2
|
|
|
1, 0, -1, -1, 1, 2, -1, 3, -1, -1, -2, 0, 1, -2, 4, -1, -3, -4, 3, 3, -2, 10, -2, -6, -7, 3, 8, -6, 16, -4, -10, -12, 4, 9, -9, 24, -6, -14, -17, 8, 14, -12, 41, -9, -26, -30, 15, 30, -21, 64, -16, -35, -45, 16, 35, -33, 90, -21, -55, -66, 32, 54, -44, 140
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
-1,6
|
|
LINKS
|
|
|
FORMULA
|
Expansion of 1 + eta(q)*eta(q^3)/(eta(q^7)*eta(q^21)) in powers of q. - G. C. Greubel, Jun 14 2018
|
|
EXAMPLE
|
T21B = 1/q - q - q^2 + q^3 + 2*q^4 - q^5 + 3*q^6 - q^7 - q^8 - 2*q^9 + q^11 - ...
|
|
MATHEMATICA
|
eta[q_]:= q^(1/24)*QPochhammer[q]; a:= CoefficientList[Series[q*(1 + (eta[q]*eta[q^3]/(eta[q^7]*eta[q^21]))), {q, 0, 60}], q]; Table[a[[n]], {n, 1, 70}] (* G. C. Greubel, Jun 14 2018 *)
|
|
PROG
|
(PARI) q='q+O('q^70); A = 1 + eta(q)*eta(q^3)/(eta(q^7)*eta(q^21))/q; Vec(A) \\ G. C. Greubel, Jun 14 2018
|
|
CROSSREFS
|
Cf. A226006 (same sequence except for n=0).
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|