A022048 Theta series of D_17 lattice.

1, 544, 38114, 808384, 7213984, 37569728, 149405248, 470966912, 1291650786, 3101265120, 6883061184, 13967503552, 27036220096, 48877735232, 85898222336, 142979339392, 233808578464, 365627715968, 565633846434, 841764350272, 1246798917056, 1783384909696, 2547362852288

Offset

0,2

References

J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 118.

Links

Seiichi Manyama, Table of n, a(n) for n = 0..1000

Mathematica

terms = 18; f[q_] = LatticeData["D17", "ThetaSeriesFunction"][-I*Log[q]/Pi]; s = f[q] + O[q]^(2 terms); DeleteCases[CoefficientList[s, q], 0][[1 ;; terms]] (* Jean-François Alcover, Jul 06 2017 *)

Crossrefs

Sequence in context: A204724 A168564 A223376 * A107512 A264948 A159626

Adjacent sequences: A022045 A022046 A022047 * A022049 A022050 A022051

Keyword

nonn

Author

N. J. A. Sloane

Extensions

More terms from Seiichi Manyama, Oct 16 2018

Status

approved