A008449 Theta series of A_9 lattice.

1, 90, 1260, 4920, 13320, 30492, 55860, 94680, 156240, 232770, 332640, 471240, 636480, 835020, 1098900, 1391040, 1720800, 2181780, 2614260, 3118680, 3889962, 4519140, 5207760, 6237000, 7208640, 8274510, 9585000, 10816560, 12215520, 14153760

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

Programs

Mathematica

terms = 24; f[q_] = LatticeData["A9", "ThetaSeriesFunction"][-I Log[q]/Pi]; Series[f[q], {q, 0, 2 terms - 1}] // CoefficientList[#, q]& // Round // DeleteCases[#, 0]& (* Jean-François Alcover, Jul 04 2017 *)

Extensions

More terms from Sean A. Irvine, Jun 12 2019