login
Theta series of 10-dimensional lattice (C6 X SU(4,2)):C2 with minimal norm 4.
1

%I #24 Jun 01 2024 11:51:38

%S 1,0,270,960,3240,8640,17790,25920,62910,81600,124416,198720,287160,

%T 311040,596700,619200,806760,1140480,1465710,1425600,2458080,2383680,

%U 2903040,3818880,4607790,4250880,7089660,6518400,7575120,9633600,11275776,10082880,16150590,14587200,16588800,20442240,23261640,20424960

%N Theta series of 10-dimensional lattice (C6 X SU(4,2)):C2 with minimal norm 4.

%H G. Nebe and N. J. A. Sloane, <a href="http://www.math.rwth-aachen.de/~Gabriele.Nebe/LATTICES/P10.1.html">Home page for this lattice</a>

%F See Magma program.

%o (Magma)

%o 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]]);

%o L:=LatticeWithGram(A);

%o T<q>:=ThetaSeries(L, 75);

%o S:=[];

%o for i in [0 .. 37] do S cat:= [Coefficient(T, 2*i)]; end for;

%o S; // _Josiah Park_, Feb 24 2019

%K nonn

%O 0,3

%A _N. J. A. Sloane_.

%E More terms from _Josiah Park_, Feb 24 2019