

A022069


Theta series of D*_16 lattice.


1



1, 32, 480, 4480, 94688, 140736, 1574528, 1580800, 11858400, 8945824, 56374848, 36714624, 202983040, 118156480, 593481984, 321692928, 1519972832, 772845120, 3450308960, 1681379200, 7246599744, 3392205824, 14048841600, 6411152640, 25979733632, 11488092896
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,2


REFERENCES

J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", SpringerVerlag, p. 120.


LINKS



EXAMPLE

G.f. = 1 + 32*q^2 + 480*q^4 + ...


PROG

(Sage)
L = [1, 32, 480]
M = ModularForms(Gamma0(2), 8)
bases = [_.q_expansion(30) for _ in M.integral_basis()]
f = sum(x*y for (x, y) in zip(bases, L)); list(f) # Andy Huchala, Jul 13 2021


CROSSREFS



KEYWORD

nonn


AUTHOR



EXTENSIONS



STATUS

approved



