|
PROG
|
(Magma)
prec := 30;
basis := [1, 1, 0, 1, 1, 0, 0, 0, 0, 1, -1, 0, 1, -1, 0, 0, 0, 0, 0, 1, -1, 0, 1, -1, 0, 0, 0, 1, 1, 0, -1, -1, 0, 0, 0, 0, 1, -1, 0, -1, 1, 0, 0, 0, 0, 0, 1, -1, 0, -1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, -1, -1, 0, 0, 0, 0, 1, -1, 0, -1, 1, 0, 0, 0, 0, 0, 1, -1, 0, -1, 1];
S := Matrix(9, basis);
L := LatticeWithBasis(S);
T := ThetaSeriesModularForm(L);
Coefficients(PowerSeries(T, prec)); // Andy Huchala, May 16 2023
|