|
%I #10 Jun 12 2019 20:47:59
%S 1,90,1260,4920,13320,30492,55860,94680,156240,232770,332640,471240,
%T 636480,835020,1098900,1391040,1720800,2181780,2614260,3118680,
%U 3889962,4519140,5207760,6237000,7208640,8274510,9585000,10816560,12215520,14153760
%N Theta series of A_9 lattice.
%D J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 110.
%t 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 *)
%K nonn
%O 0,2
%A _N. J. A. Sloane_.
%E More terms from _Sean A. Irvine_, Jun 12 2019
|
