login
A023908
Theta series of A_17 lattice.
0
1, 306, 18360, 376176, 3406086, 17783496, 70085016, 222878160, 606828294, 1467198158, 3232761480, 6610437216, 12689365284, 23141407896, 40339237032, 67639875264, 109818485334, 173032004196, 265536985560, 398488725216, 585449871444, 843755783448, 1196517158352
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["A17", "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
Sequence in context: A064257 A221854 A221724 * A035843 A128477 A028680
KEYWORD
nonn
EXTENSIONS
More terms from Robert.Harley(AT)inria.fr, see A023902.
a(18)-a(22) from Vincenzo Librandi, Jul 07 2017
STATUS
approved