OFFSET
0,3
LINKS
G. Nebe and N. J. A. Sloane, Home page for this lattice
FORMULA
See Magma program.
PROG
(Magma)
A:=Matrix([[4, 1, 1, -2, 1, -2, -2, -2, 2, -2], [1, 4, 0, -1, 2, 1, 0, 0, 2, -2], [1, 0, 4, 1, 2, -2, 1, 1, 2, 1], [-2, -1, 1, 4, -1, 1, 2, 1, -1, 2], [1, 2, 2, -1, 4, -1, 1, 1, 2, 0], [-2, 1, -2, 1, -1, 4, 0, 1, -1, 0], [-2, 0, 1, 2, 1, 0, 4, 2, -1, 1], [-2, 0, 1, 1, 1, 1, 2, 4, -1, 2], [2, 2, 2, -1, 2, -1, -1, -1, 4, -1], [-2, -2, 1, 2, 0, 0, 1, 2, -1, 4]]);
L:=LatticeWithGram(A);
T<q>:=ThetaSeries(L, 75);
S:=[];
for i in [0 .. 37] do S cat:= [Coefficient(T, 2*i)]; end for;
S; // Josiah Park, Feb 24 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from Josiah Park, Feb 24 2019
STATUS
approved