%I #17 May 15 2023 08:44:11
%S 1,0,1228,11264,73260,245760,830944,1853440,4670892,8355840,17837048,
%T 27874304,53205728,75939840,134305088,179025920,299207596,379944960,
%U 605758444,740441088,1141582264,1347747840,2022362656,2329679872,3403939552,3842703360,5509653560
%N Theta series of 14-dimensional integral laminated lattice LAMBDA14.2 with minimal norm 4.
%C This theta series is an element of the space of modular forms on Gamma_1(8) with Kronecker character -4 in modulus 8, weight 7, and dimension 8. - _Andy Huchala_, May 15 2023
%H Andy Huchala, <a href="/A046958/b046958.txt">Table of n, a(n) for n = 0..10000</a>
%H G. Nebe and N. J. A. Sloane, <a href="http://www.math.rwth-aachen.de/~Gabriele.Nebe/LATTICES/LAMBDA14.2.html">Home page for this lattice</a>
%o (Magma)
%o prec := 20;
%o gram := [4,2,4,0,-2,4,0,-2,0,4,0,0,-2,0,4,-2,-2,0,0,0,4,0,0,0,0,0,-2,4,0,0,0,0,0,0,-2,4,0,0,0,0,1,-1,0,0,4,0,0,0,0,-1,0,0,0,0,4,0,0,0,0,0,0,0,0,-2,0,4,0,1,-2,0,1,0,0,-1,1,0,0,4,-1,0,-1,-1,1,0,1,0,1,1,0,0,4,0,0,0,0,0,0,0,0,0,1,-2,0,-1,4];
%o S := SymmetricMatrix(gram);
%o L := LatticeWithGram(S);
%o T := ThetaSeriesModularForm(L);
%o Coefficients(PowerSeries(T,prec)); // _Andy Huchala_, May 15 2023
%Y Cf. A023937, A047626, A047627.
%K nonn
%O 0,3
%A _N. J. A. Sloane_
%E More terms from _Andy Huchala_, May 15 2023