|
|
A109772
|
|
Expansion of eighth root of theta series of {D_8}* lattice.
|
|
3
|
|
|
1, 2, 32, -448, 258, 82432, -1067584, -5811456, 340793856, -2998521854, -51094125376, 1517473732032, -6428001477632, -345000533911040, 6658043297901184, 8307326726656256, -2094184270312728574, 27053603162176532480, 250115549146474154720, -11797456310343541979456
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
MATHEMATICA
|
terms = 20; s = (EllipticTheta[3, 0, q]^8 + EllipticTheta[2, 0, q]^8)^(1/8) + O[q]^terms; CoefficientList[s, q] (* Jean-François Alcover, Jul 08 2017, after A008427 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|