A022059 Theta series of D_28 lattice.

1, 1512, 327656, 24189984, 811401192, 14500933104, 156797510688, 1163495873088, 6597606440936, 30505974273096, 119983597365744, 414352982942304, 1283861585339424, 3635198568784944, 9523977599887936, 23358459198626496, 54039921152557032, 118876818364991568

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..1000

Programs

Mathematica

terms = 15; f[q_] = LatticeData["D28", "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