login
A022082
Theta series of D*_29 lattice.
1
1, 0, 0, 0, 58, 0, 0, 0, 1624, 0, 0, 0, 29232, 0, 0, 0, 380074, 0, 0, 0, 3803408, 0, 0, 0, 30488976, 0, 0, 0, 201299904, 536870912, 0, 0, 1117791544, 0, 0, 0, 5310177994, 15569256448, 0, 0, 21911472464, 0, 0, 0, 79683652176, 217969590272, 0, 0, 259172461296
OFFSET
0,5
REFERENCES
J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 120.
LINKS
EXAMPLE
G.f. = 1 + 58*q^4 + 1624*q^8 + ...
PROG
(Magma)
L := Dual(Lattice("D", 29));
B := Basis(ThetaSeriesModularFormSpace(L), 70);
S := [ 1, 0, 0, 0, 58, 0, 0, 0, 1624, 0, 0, 0, 29232, 0, 0];
Coefficients(&+[B[i] * S[i] : i in [1..15]]); // Andy Huchala, Jul 14 2021
CROSSREFS
Sequence in context: A069255 A065869 A301558 * A225434 A225415 A033378
KEYWORD
nonn
EXTENSIONS
More terms from Andy Huchala, Jul 14 2021
STATUS
approved