|
PROG
|
(Magma)
prec := 30;
gram := [8, 2, 8, -1, 0, 8, 0, -2, 0, 8, 2, -1, -2, 4, 8, -2, 0, -1, -1, -1, 8, -2, -1, 0, -1, -2, 0, 8, 0, -1, 0, -1, -2, -2, -1, 8, 0, 0, -1, -2, -1, 0, 0, -1, 8, 1, 1, 0, 2, 2, 0, 0, 0, 0, 8, 1, 4, 2, -2, -1, -2, -2, 2, -2, 0, 8, -4, -2, 2, 0, 0, 0, -1, -1, 1, 0, -1, 8, 4, 0, -1, 0, 1, -2, 2, 0, -1, -2, 1, -4, 8, -4, 1, 0, -1, 0, -1, 0, 0, -1, -1, 2, 2, 0, 8, -2, -2, -4, 4, 2, 0, 2, -1, -2, 0, -2, 0, 0, -1, 8, 4, 1, -2, 2, 2, 2, -2, -2, -1, -1, -1, -4, 4, -2, 1, 8, 2, -1, -2, -1, 0, 0, -1, -2, -1, -2, -2, -1, 0, -2, 2, 2, 8, -2, 0, 0, -2, -2, -1, 1, 0, 0, -1, 2, 1, -1, 0, 2, -2, 2, 8, 0, 0, -1, -2, -1, 0, 0, 2, 4, -4, -2, -1, 0, -1, -2, 0, 0, 1, 8, 4, 1, -1, -2, 1, -2, 1, -4, 0, -2, 1, -1, 4, 0, 0, 2, 4, 2, -1, 8];
S := SymmetricMatrix(gram);
L := LatticeWithGram(S);
T := ThetaSeriesModularForm(L);
Coefficients(PowerSeries(T, prec)); // Andy Huchala, May 15 2023
|