A022047 Theta series of D_16 lattice.

1, 480, 29152, 525952, 3994080, 18626112, 67978880, 197120256, 509145568, 1143441760, 2428524096, 4658843520, 8705492608, 15000919872, 25593401600, 40864033536, 65187410400, 98098623936, 148724365664, 213678303360, 310833534528, 430766443520, 605650030464, 813970121472

Offset: 0

Author

N. J. A. Sloane

Keywords

• nonn

References

• J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 118.

Links

• Seiichi Manyama, Table of n, a(n) for n = 0..10000

Crossrefs

a(n) = A000152(2*n).

Programs

Mathematica

terms = 18; s = EllipticTheta[3, 0, x]^16 + O[x]^(2 terms); Partition[ CoefficientList[s, x], 2][[All, 1]][[1 ;; terms]] (* Jean-François Alcover, Jul 06 2017 *)

Extensions

More terms from Seiichi Manyama, Oct 16 2018