A023908 Theta series of A_17 lattice.

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.

Links

Table of n, a(n) for n=0..22.

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

Adjacent sequences: A023905 A023906 A023907 * A023909 A023910 A023911

Keyword

nonn

Author

N. J. A. Sloane

Extensions

More terms from Robert.Harley(AT)inria.fr, see A023902.

a(18)-a(22) from Vincenzo Librandi, Jul 07 2017

Status

approved