OFFSET
0,2
REFERENCES
J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 110.
EXAMPLE
1 + 600*q^2 + 75900*q^4 + 3555800*q^6 + O(q^8).
MATHEMATICA
terms = 16; f[q_] = LatticeData["A24", "ThetaSeriesFunction"][-I*Log[q]/Pi]; s = f[q] + O[q]^(2 terms); Partition[CoefficientList[s, q] // Round, 2][[All, 1]][[1 ;; terms]] (* Jean-François Alcover, Jul 06 2017 *)
PROG
(Magma) L:=Lattice("A", 24); T1<q> := ThetaSeries(L, 10);
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from Robert.Harley(AT)inria.fr, see A023902.
STATUS
approved