OFFSET
0,4
LINKS
R. Bacher and B. B. Venkov, Réseaux entiers unimodulaires sans racine en dimension 27 et 28, in Réseaux euclidiens, designs sphériques et formes modulaires, pp. 212-267, Enseignement Math., Geneva, 2001.
J. H. Conway and N. J. A. Sloane, Sphere Packings, Lattices and Groups, Springer-Verlag, Preface to 3rd ed. [alternative link]
N. Heninger, E. M. Rains and N. J. A. Sloane, On the Integrality of n-th Roots of Generating Functions, arXiv:math/0509316 [math.NT], 2005-2006; J. Combinatorial Theory, Series A, 113 (2006), 1732-1745.
MATHEMATICA
terms = 18; QP = QPochhammer; th3 = EllipticTheta[3, 0, q]; delta8 = q*(QP[q]*(QP[q^4]/QP[q^2]))^8; s = th3^27 - 54*th3^19*delta8 + 216*th3^11*delta8^2 + O[q]^terms; CoefficientList[s, q] (* Jean-François Alcover, Jul 06 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved