|
|
A004535
|
|
Theta series of 14-dimensional unimodular lattice (E7+E7)+.
|
|
1
|
|
|
1, 0, 252, 3136, 17388, 64512, 194656, 501120, 1101996, 2193408, 4195800, 7551936, 12508384, 19934208, 31616064, 48487040, 70404012, 99735552, 142513308, 200515392, 268608312, 353783808, 475911072
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
J. H. Conway, A. M. Odlyzko, and N. J. A. Sloane, Extremal Self-Dual Lattices Exist Only in Dimensions 1-8, 12, 14, 15, 23 and 24, Mathematika, 25 (1978), 36-43.
|
|
FORMULA
|
G.f.: (theta3^7 + 7*theta3^3*theta2^4)^2 + (theta2^7 + 7*theta2^3*theta3^4)^2.
|
|
EXAMPLE
|
1 + 252*q^2 + 3136*q^3 + ...
|
|
MATHEMATICA
|
terms = 23; s = (EllipticTheta[3, 0, q]^7 + 7*EllipticTheta[3, 0, q]^3 * EllipticTheta[2, 0, q]^4)^2 + (EllipticTheta[2, 0, q]^7 + 7*EllipticTheta[2, 0, q]^3 * EllipticTheta[3, 0, q]^4)^2 + O[q]^terms // Normal; Join[{1, 0}, Rest[(List @@ s) /. q -> 1]][[1 ;; terms]] (* Jean-François Alcover, Jul 07 2017 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|