login
A022076
Theta series of D*_23 lattice.
1
1, 0, 0, 0, 46, 0, 0, 0, 1012, 0, 0, 0, 14168, 0, 0, 0, 141726, 0, 0, 0, 1078792, 0, 0, 8388608, 6503112, 0, 0, 0, 31946816, 0, 0, 192937984, 130905236, 0, 0, 0, 457207478, 0, 0, 2122317824, 1392036360, 0, 0, 0, 3784029000, 0, 0, 15049162752, 9401213016, 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 + 46*q^4 + 1012*q^8 + ...
PROG
(Magma)
L := Dual(Lattice("D", 23));
B := Basis(ThetaSeriesModularFormSpace(L), 70);
S := [1, 0, 0, 0, 46, 0, 0, 0, 1012, 0, 0, 0];
Coefficients(&+[B[i] * S[i] : i in [1..12]]); // Andy Huchala, Jul 14 2021
CROSSREFS
Sequence in context: A089626 A110479 A023934 * A055766 A267319 A261513
KEYWORD
nonn
EXTENSIONS
More terms from Andy Huchala, Jul 14 2021
STATUS
approved