login
A008450
Theta series of A_10 lattice.
0
1, 110, 1980, 10230, 30140, 79992, 155100, 302280, 487080, 839630, 1188660, 1845360, 2494470, 3610200, 4548060, 6490374, 7786790, 10545480, 12579600, 16461720, 19071162, 24859560, 27742440, 35347950, 39926040, 49393014, 54115380, 67987150
OFFSET
0,2
REFERENCES
J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 110.
MATHEMATICA
terms = 23; f[q_] = LatticeData["A10", "ThetaSeriesFunction"][-I Log[q]/Pi]; s = Normal[Series[f[q], {q, 0, 2 terms}]]; Partition[ CoefficientList[s, q] , 2][[All, 1]][[1 ;; terms]] // Round (* Jean-François Alcover, Jul 07 2017 *)
CROSSREFS
Sequence in context: A358256 A200877 A205348 * A163729 A251020 A245876
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from Sean A. Irvine, Jun 12 2019
STATUS
approved