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,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..29.

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 *)

Crossrefs

Sequence in context: A013425 A013428 A013429 * A213455 A155016 A179800

Adjacent sequences: A008446 A008447 A008448 * A008450 A008451 A008452

Keyword

nonn

Author

N. J. A. Sloane.

Extensions

More terms from Sean A. Irvine, Jun 12 2019

Status

approved