Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A029897
Theta series of 13-dimensional lattice Kappa_13 with minimal norm 4.
9
1, 0, 918, 6624, 36450, 120096, 322436, 764640, 1637766, 2912544, 5591592, 9160992, 14668002, 22913280, 35544420, 48529440, 74114514, 100230912, 136486530, 184801824, 252809100, 308852640, 426995388, 528491520, 664053284, 836215488, 1070501400, 1229873472
OFFSET
0,3
REFERENCES
J. H. Conway and N. J. A. Sloane, "Sphere Packings, Lattices and Groups", Springer-Verlag, p. 161.
LINKS
G. Nebe and N. J. A. Sloane, Home page for this lattice
EXAMPLE
G.f. = 1 + 918*q^4 + 6624*q^6 + ...
PROG
(Magma)
L := (Lattice("Kappa", 13));
B := Basis(ThetaSeriesModularFormSpace(L), 55);
S := [1, 0, 918, 6624, 36450, 120096, 322436, 764640, 1637766, 2912544, 5591592, 9160992, 14668002, 22913280, 35544420, 48529440, 74114514, 100230912, 136486530, 184801824, 252809100, 308852640, 426995388, 528491520, 664053284];
Coefficients(&+[B[i] * S[i] : i in [1..25]]); // Andy Huchala, Jul 23 2021
CROSSREFS
Sequence in context: A234993 A234764 A282592 * A221387 A217226 A217344
KEYWORD
nonn
EXTENSIONS
More terms from Andy Huchala, Jul 23 2021
STATUS
approved