|
%I #19 Jun 13 2019 04:13:48
%S 1,380,29070,782040,9438440,62953992,293878320,1095681360,3397527180,
%T 9278730940,22633815436,51077966760,106592778180,211336265080,
%U 395232580440,713167271184,1229503440980,2066616183960,3346158684430,5318821052280,8194315251672,12453539176080
%N Theta series of A_19 lattice.
%D J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 110.
%t terms = 18; f[q_] = LatticeData["A19", "ThetaSeriesFunction"][-I*Log[q]/Pi]; s = f[q] + O[q]^(2 terms); Partition[CoefficientList[s, q] // Round, 2][[All, 1]][[1 ;; terms]] (* _Jean-François Alcover_, Jul 06 2017 *)
%Y Cf. A023902.
%K nonn
%O 0,2
%A _N. J. A. Sloane_
%E More terms from Robert.Harley(AT)inria.fr, see A023902.
%E More terms from _Sean A. Irvine_, Jun 12 2019
|
