|
PROG
|
(Magma)
prec := 20;
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];
S := SymmetricMatrix(gram);
L := LatticeWithGram(S);
T := ThetaSeriesModularForm(L);
Coefficients(PowerSeries(T, prec)); // Andy Huchala, May 15 2023
|