|
%I #15 Oct 16 2018 08:37:28
%S 1,364,16044,200928,1089452,4196920,12547808,31553344,70439852,
%T 142487436,268594872,476105504,800698080,1296257144,2022013760,
%U 3056208064,4507001772,6481076056,9123064524,12637846368,17190762680,22999441920,30453867808,39772497856,51254988512
%N Theta series of D_14 lattice.
%D J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 118.
%H Seiichi Manyama, <a href="/A022045/b022045.txt">Table of n, a(n) for n = 0..10000</a>
%H G. Nebe and N. J. A. Sloane, <a href="http://www.math.rwth-aachen.de/~Gabriele.Nebe/LATTICES/D14.html">Home page for this lattice</a>
%t terms = 20; f[q_] = LatticeData["D14", "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 *)
%K nonn
%O 0,2
%A _N. J. A. Sloane_
%E More terms from _Seiichi Manyama_, Oct 16 2018
|
