A008448 Theta series of A_8 lattice.

1, 72, 756, 2184, 5742, 10584, 19656, 26712, 49140, 59208, 88452, 111888, 159432, 171864, 260064, 275184, 364734, 412776, 532872, 534744, 772632, 751296, 935064, 1022112, 1277640, 1229328, 1661688, 1598856, 1959696, 2048760, 2476656, 2321928

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 = 26; f[q_] = LatticeData["A8", "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