Sharedwww / people / hanke / 10-01-02.mOpen in CoCalc
Author: William A. Stein
1
procedure forms(N)
2
assert N in {105, 210, 420};
3
eps := BaseExtend(KroneckerCharacter(105),Rationals());
4
eps := DirichletGroup(N)!eps;
5
S := NewSubspace(CuspidalSubspace(ModularForms([eps],2)));
6
N := Newforms(S);
7
for i in [1..#N] do
8
f := N[i][1];
9
CoefficientField(f);
10
PowerSeries(f,100);
11
end for;
12
end procedure;
13
14
print "Level 105";
15
forms(105);
16
print "Level 210";
17
forms(210);
18
print "Level 420";
19
forms(420);
20