Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

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
OFFSET
0,2
REFERENCES
J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, 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
Sequence in context: A250319 A000152 A319307 * A250560 A203720 A306411
KEYWORD
nonn
EXTENSIONS
More terms from Andy Huchala, Jul 13 2021
STATUS
approved