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

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

Crossrefs

Sequence in context: A200451 A097205 A253917 * A282213 A304828 A268780

Adjacent sequences: A008445 A008446 A008447 * A008449 A008450 A008451

Keyword

nonn

Author

N. J. A. Sloane.

Extensions

More terms from Sean A. Irvine, Jun 12 2019

Status

approved