|
|
A058088
|
|
McKay-Thompson series of class 8b for Monster.
|
|
3
|
|
|
1, 8, -6, 48, 15, 168, -26, 496, 51, 1296, -102, 3072, 172, 6840, -276, 14448, 453, 29184, -728, 56880, 1128, 107472, -1698, 197616, 2539, 354888, -3780, 624048, 5505, 1076736, -7882, 1826416, 11238, 3050400, -15918, 5022720, 22259, 8163152, -30810, 13108224, 42438, 20814792, -58110
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
D. Alexander, C. Cummins, J. McKay and C. Simons, Completely Replicable Functions, LMS Lecture Notes, 165, ed. Liebeck and Saxl (1992), 87-98, annotated and scanned copy.
|
|
FORMULA
|
Expansion of q^(1/2)*(eta(q^2)^4*eta(q^4)^4 / (eta(q)^4*eta(q^8)^4) + 4*eta(q)^4*eta(q^8)^4 / (eta(q^2)^4*eta(q^4)^4)) in powers of q. - G. A. Edgar, Mar 23 2017
|
|
EXAMPLE
|
T8b = 1/q + 8*q - 6*q^3 + 48*q^5 + 15*q^7 + 168*q^9 - 26*q^11 + 496*q^13 + ...
|
|
MATHEMATICA
|
eta[q_]:= q^(1/24)*QPochhammer[q]; F:= (eta[q^2]*eta[q^4]/(eta[q] *eta[q^8]))^4; a:= CoefficientList[Series[q^(1/2)*(F + 4/F), {q, 0, 60}], q]; Table[a[[n]], {n, 1, 50}] (* G. C. Greubel, Jun 03 2018 *)
|
|
PROG
|
q='q+O('q^30); F= (eta(q^2)*eta(q^4)/(eta(q)*eta(q^8)))^4; Vec(F + 4*q/F) \\ G. C. Greubel, Jun 03 2018
|
|
CROSSREFS
|
Agrees with A112145 except for signs.
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|