A023915 Theta series of A_24 lattice.

1, 600, 75900, 3555800, 77836050, 924978120, 6901688200, 37479599400, 162981777750, 594965730200, 1897531134180, 5410666657200, 14097598363900, 33985515175800, 76830818652600, 164035898209360

Offset

0,2

References

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

Links

Table of n, a(n) for n=0..15.

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

Sequence in context: A092183 A048530 A223463 * A035850 A093260 A008689

Adjacent sequences: A023912 A023913 A023914 * A023916 A023917 A023918

Keyword

nonn

Author

N. J. A. Sloane.

Extensions

More terms from Robert.Harley(AT)inria.fr, see A023902.

Status

approved