A008432 Theta series of D_10 lattice.

1, 180, 3380, 16320, 52020, 129064, 262080, 489600, 840500, 1330420, 2050344, 2986560, 4194240, 5878440, 7862400, 10216320, 13415220, 17163880, 21250420, 26585280, 32826664, 39475200, 47960640, 57087360, 67108800, 80452188, 93590440, 107091840, 125827200, 145415080

Offset: 0

Author

N. J. A. Sloane

Keywords

• nonn
• easy

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

Programs

Mathematica

terms = 23; s = 1/2 (EllipticTheta[3, 0, q]^10 + EllipticTheta[4, 0, q]^10) + O[q]^(2 terms); CoefficientList[s, q^2] (* Jean-François Alcover, Jul 07 2017 *)

Extensions

More terms from Seiichi Manyama, Oct 16 2018