A022060 Theta series of D_29 lattice.

1, 1624, 380074, 30488976, 1117791544, 21911472464, 259172461296, 2081117152992, 12613606876714, 61865177248552, 256462892399504, 928859670458448, 3006249397711056, 8858986222461872, 24088488255932096, 61146089973555552, 146117613009432632, 331281589561600160

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

Programs

Mathematica

terms = 15; f[q_] = LatticeData["D29", "ThetaSeriesFunction"][-I*Log[q]/Pi]; s = f[q] + O[q]^(2 terms); DeleteCases[CoefficientList[s, q], 0][[1 ;; terms]] (* Jean-François Alcover, Jul 06 2017 *)

Extensions

More terms from Seiichi Manyama, Oct 16 2018