%I #10 Jun 12 2019 20:47:39
%S 1,110,1980,10230,30140,79992,155100,302280,487080,839630,1188660,
%T 1845360,2494470,3610200,4548060,6490374,7786790,10545480,12579600,
%U 16461720,19071162,24859560,27742440,35347950,39926040,49393014,54115380,67987150
%N Theta series of A_10 lattice.
%D J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 110.
%t 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 *)
%K nonn
%O 0,2
%A _N. J. A. Sloane_.
%E More terms from _Sean A. Irvine_, Jun 12 2019
|