login
A022070
Theta series of D*_17 lattice.
1
1, 0, 0, 0, 34, 0, 0, 0, 544, 0, 0, 0, 5440, 0, 0, 0, 38114, 131072, 0, 0, 199104, 0, 0, 0, 808384, 2228224, 0, 0, 2641664, 0, 0, 0, 7213984, 17825792, 0, 0, 17215458, 0, 0, 0, 37569728, 91357184, 0, 0, 77129408, 0, 0, 0, 149405248, 347602944, 0, 0
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 + 34*q^4 + 544*q^8 + ...
PROG
(Magma)
L := Dual(Lattice("D", 17));
B := Basis(ThetaSeriesModularFormSpace(L), 2005);
S := [1, 0, 0, 0, 34, 0, 0, 0, 544];
Coefficients(&+[B[i] * S[i] : i in [1..9]]); // Andy Huchala, Jul 13 2021
CROSSREFS
Sequence in context: A171705 A228426 A023928 * A123301 A328913 A269482
KEYWORD
nonn
EXTENSIONS
More terms from Andy Huchala, Jul 13 2021
STATUS
approved