%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