login
A023910
Theta series of A_19 lattice.
0
1, 380, 29070, 782040, 9438440, 62953992, 293878320, 1095681360, 3397527180, 9278730940, 22633815436, 51077966760, 106592778180, 211336265080, 395232580440, 713167271184, 1229503440980, 2066616183960, 3346158684430, 5318821052280, 8194315251672, 12453539176080
OFFSET
0,2
REFERENCES
J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 110.
MATHEMATICA
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 *)
CROSSREFS
Cf. A023902.
Sequence in context: A188307 A214145 A185493 * A035845 A028682 A222163
KEYWORD
nonn
EXTENSIONS
More terms from Robert.Harley(AT)inria.fr, see A023902.
More terms from Sean A. Irvine, Jun 12 2019
STATUS
approved