Sharedwww / tables / artin / 1376.mOpen in CoCalc
Author: William A. Stein
1
N := 2^5*43;
2
bound := 4000;
3
4
5
F<alp> := GF(25);
6
G<a2,b2,c>:=DirichletGroup(N, F);
7
assert Order(a2) eq 2;
8
assert Order(c) mod 3 eq 0;
9
eps := a2 * (c^(Order(c) div 3));
10
11
time M := ModularSymbols(eps,5,+1);
12
"Created M = ", M;
13
14
R<x>:= PolynomialRing(F);
15
I := [<19,x>, <31,x>, <97,x>, <3, x-alp^16>];
16
time V := Kernel(I, M);
17
"Created V = ", V;
18
19
save "1376.space";
20
21
/*
22
23
restore "1376.space";
24
*/
25
26
end if;
27
28
printf "Computing T_2, T_3, T_5, ..., T_%o.\n", PreviousPrime(bound+1);
29
time T := [DualHeckeOperator(V,p) : p in [2..bound] | IsPrime(p)];
30
31
file := Open("1376.Tp", "w");
32
fprintf file, "F<alp> := GF(%o);\n", #F;
33
fprintf file, "T%o := \n %m;\n", N, T;
34
35
print "All done!";
36