Sharedwww / Tables / charpoly_s6new.gpOpen in CoCalc
Author: William A. Stein
1
\\ charpoly_s6new.gp
2
\\ This is a table of characteristic polynomials of the
3
\\ Hecke operators T_p acting on the space S_6^{new}(Gamma_0(N))
4
\\ of weight 6 cuspidal newforms for Gamma_0(N).
5
\\ The cases in which S_k = S_k^{new} are omitted, since
6
\\ they appear in other tables.
7
\\ William Stein ([email protected]), September, 1998.
8
9
{
10
T=matrix(20,97,m,n,0);
11
T[4,2]=x ;
12
T[4,3]=x + 12;
13
T[4,5]=x -54;
14
T[4,7]=x + 88;
15
T[4,11]=x -540;
16
T[4,13]=x + 418;
17
T[4,17]=x -594;
18
T[4,19]=x -836;
19
T[4,23]=x + 4104;
20
T[4,29]=x + 594;
21
T[4,31]=x -4256;
22
T[4,37]=x + 298;
23
T[4,41]=x -17226;
24
T[4,43]=x + 12100;
25
T[4,47]=x + 1296;
26
T[4,53]=x -19494;
27
T[4,59]=x + 7668;
28
T[4,61]=x + 34738;
29
T[4,67]=x -21812;
30
T[4,71]=x + 46872;
31
T[4,73]=x -67562;
32
T[4,79]=x + 76912;
33
T[4,83]=x -67716;
34
T[4,89]=x -29754;
35
T[4,97]=x + 122398;
36
37
T[6,2]=x -4;
38
T[6,3]=x + 9;
39
T[6,5]=x + 66;
40
T[6,7]=x -176;
41
T[6,11]=x + 60;
42
T[6,13]=x + 658;
43
T[6,17]=x + 414;
44
T[6,19]=x -956;
45
T[6,23]=x -600;
46
T[6,29]=x -5574;
47
T[6,31]=x + 3592;
48
T[6,37]=x + 8458;
49
T[6,41]=x -19194;
50
T[6,43]=x -13316;
51
T[6,47]=x + 19680;
52
T[6,53]=x + 31266;
53
T[6,59]=x -26340;
54
T[6,61]=x + 31090;
55
T[6,67]=x + 16804;
56
T[6,71]=x -6120;
57
T[6,73]=x + 25558;
58
T[6,79]=x -74408;
59
T[6,83]=x + 6468;
60
T[6,89]=x + 32742;
61
T[6,97]=x -166082;
62
63
T[8,2]=x ;
64
T[8,3]=x -20;
65
T[8,5]=x + 74;
66
T[8,7]=x + 24;
67
T[8,11]=x -124;
68
T[8,13]=x -478;
69
T[8,17]=x + 1198;
70
T[8,19]=x -3044;
71
T[8,23]=x -184;
72
T[8,29]=x + 3282;
73
T[8,31]=x + 5728;
74
T[8,37]=x -10326;
75
T[8,41]=x + 8886;
76
T[8,43]=x + 9188;
77
T[8,47]=x -23664;
78
T[8,53]=x -11686;
79
T[8,59]=x -16876;
80
T[8,61]=x + 18482;
81
T[8,67]=x + 15532;
82
T[8,71]=x + 31960;
83
T[8,73]=x + 4886;
84
T[8,79]=x -44560;
85
T[8,83]=x -67364;
86
T[8,89]=x -71994;
87
T[8,97]=x -48866;
88
89
T[9,2]=x -6;
90
T[9,3]=x ;
91
T[9,5]=x + 6;
92
T[9,7]=x + 40;
93
T[9,11]=x -564;
94
T[9,13]=x -638;
95
T[9,17]=x + 882;
96
T[9,19]=x + 556;
97
T[9,23]=x -840;
98
T[9,29]=x + 4638;
99
T[9,31]=x -4400;
100
T[9,37]=x + 2410;
101
T[9,41]=x -6870;
102
T[9,43]=x -9644;
103
T[9,47]=x -18672;
104
T[9,53]=x + 33750;
105
T[9,59]=x -18084;
106
T[9,61]=x -39758;
107
T[9,67]=x + 23068;
108
T[9,71]=x -4248;
109
T[9,73]=x + 41110;
110
T[9,79]=x -21920;
111
T[9,83]=x + 82452;
112
T[9,89]=x -94086;
113
T[9,97]=x -49442;
114
115
T[10,2]=(x -4)*(x + 4)^2;
116
T[10,3]=(x -24)*(x -6)*(x + 26);
117
T[10,5]=(x -25)*(x + 25)^2;
118
T[10,7]=(x + 172)*(x + 22)*(x + 118);
119
T[10,11]=(x -132)*(x + 768)*(x -192);
120
T[10,13]=(x -1106)*(x + 946)*(x + 46);
121
T[10,17]=(x -378)*(x -762)*(x + 222);
122
T[10,19]=(x + 2740)*(x -500)*(x -1100);
123
T[10,23]=(x + 1986)*(x -1566)*(x -3564);
124
T[10,29]=(x -5910)*(x -2190)*(x + 5610);
125
T[10,31]=(x + 3988)*(x + 6868)*(x -2312);
126
T[10,37]=(x + 5518)*(x + 142)*(x + 11242);
127
T[10,41]=(x -1242)*(x + 378)*(x -1542);
128
T[10,43]=(x + 5026)*(x -20624)*(x + 2434);
129
T[10,47]=(x -24738)*(x -13122)*(x -6588);
130
T[10,53]=(x + 14166)*(x + 21066)*(x + 9174);
131
T[10,59]=(x -28380)*(x -7980)*(x + 34980);
132
T[10,61]=(x -16622)*(x + 9838)*(x -5522);
133
T[10,67]=(x -1808)*(x + 24742)*(x -33722);
134
T[10,71]=(x -70212)*(x + 24528)*(x -42372);
135
T[10,73]=(x + 52126)*(x -21986)*(x -20474);
136
T[10,79]=(x -4520)*(x + 46240)*(x + 39640);
137
T[10,83]=(x + 59826)*(x + 109074)*(x + 51576);
138
T[10,89]=(x -38490)*(x -57690)*(x + 110310);
139
T[10,97]=(x + 1918)*(x + 78382)*(x + 144382);
140
141
T[12,2]=;
142
T[12,3]=;
143
T[12,5]=;
144
T[12,7]=;
145
T[12,11]=;
146
T[12,13]=;
147
T[12,17]=;
148
T[12,19]=;
149
T[12,23]=;
150
T[12,29]=;
151
T[12,31]=;
152
T[12,37]=;
153
T[12,41]=;
154
T[12,43]=;
155
T[12,47]=;
156
T[12,53]=;
157
T[12,59]=;
158
T[12,61]=;
159
T[12,67]=;
160
T[12,71]=;
161
T[12,73]=;
162
T[12,79]=;
163
T[12,83]=;
164
T[12,89]=;
165
T[12,97]=;
166
167
T[14,2]=(x -4)*(x + 4);
168
T[14,3]=(x -10)*(x -8);
169
T[14,5]=(x -10)*(x -84);
170
T[14,7]=(x -49)*(x + 49);
171
T[14,11]=(x + 336)*(x + 340);
172
T[14,13]=(x + 294)*(x -584);
173
T[14,17]=(x + 1458)*(x -1226);
174
T[14,19]=(x -470)*(x -2432);
175
T[14,23]=(x -2000)*(x + 4200);
176
T[14,29]=(x + 6746)*(x -4866);
177
T[14,31]=(x + 7372)*(x -8856);
178
T[14,37]=(x -14330)*(x -9182);
179
T[14,41]=(x -6222)*(x + 14574);
180
T[14,43]=(x -8108)*(x -3704);
181
T[14,47]=(x + 1812)*(x + 312);
182
T[14,53]=(x + 14634)*(x + 37242);
183
T[14,59]=(x -34302)*(x + 27656);
184
T[14,61]=(x -34338)*(x -24476);
185
T[14,67]=(x -12316)*(x + 17452);
186
T[14,71]=(x -28224)*(x -36920);
187
T[14,73]=(x + 61718)*(x -3602);
188
T[14,79]=(x -42872)*(x + 64752);
189
T[14,83]=(x + 77056)*(x + 35202);
190
T[14,89]=(x -26730)*(x + 8166);
191
T[14,97]=(x + 16978)*(x -20650);
192
193
T[15,2]=(x + 2)*(x -7)*(x^2 + x -102);
194
T[15,3]=(x -9)*(x + 9)^3;
195
T[15,5]=(x -25)^2*(x + 25)^2;
196
T[15,7]=(x -12)*(x + 132)*(x^2 + 112*x -23040);
197
T[15,11]=(x -472)*(x -112)*(x^2 -248*x -89328);
198
T[15,13]=(x + 974)*(x + 686)*(x^2 -876*x + 165668);
199
T[15,17]=(x -2182)*(x + 1562)*(x^2 -2036*x + 381924);
200
T[15,19]=(x + 2180)*(x -1420)*(x^2 -1464*x -3887920);
201
T[15,23]=(x -264)*(x -3216)*(x^2 + 3216*x + 2350080);
202
T[15,29]=(x -170)*(x + 4150)*(x^2 -1948*x + 529860);
203
T[15,31]=(x -7272)*(x + 5688)*(x^2 -2672*x -1382400);
204
T[15,37]=(x -6482)*(x + 142)*(x^2 -8668*x -49300220);
205
T[15,41]=(x + 16198)*(x -5402)*(x^2 + 7628*x -15712860);
206
T[15,43]=(x + 10316)*(x + 21764)*(x^2 + 16440*x + 67149584);
207
T[15,47]=(x + 368)*(x -18568)*(x^2 + 19360*x -61495104);
208
T[15,53]=(x -12586)*(x -21514)*(x^2 + 14356*x -476289180);
209
T[15,59]=(x + 25520)*(x -34600)*(x^2 + 904*x -1067881200);
210
T[15,61]=(x + 35738)*(x -11782)*(x^2 -20220*x -149182204);
211
T[15,67]=(x + 5772)*(x + 13188)*(x^2 + 12904*x -125898096);
212
T[15,71]=(x + 35968)*(x + 69088)*(x^2 + 40976*x -627281856);
213
T[15,73]=(x -73186)*(x + 70526)*(x^2 -59124*x + 836113700);
214
T[15,79]=(x + 52440)*(x -47640)*(x^2 -107600*x + 1448870400);
215
T[15,83]=(x -74004)*(x -69036)*(x^2 + 122088*x + 2064089232);
216
T[15,89]=(x + 33870)*(x + 90030)*(x^2 -103764*x -2895368220);
217
T[15,97]=(x + 33502)*(x -143042)*(x^2 + 24764*x -15772164476);
218
219
T[16,2]=(x )^2;
220
T[16,3]=(x + 20)*(x -12);
221
T[16,5]=(x + 74)*(x -54);
222
T[16,7]=(x -24)*(x -88);
223
T[16,11]=(x + 124)*(x + 540);
224
T[16,13]=(x + 418)*(x -478);
225
T[16,17]=(x -594)*(x + 1198);
226
T[16,19]=(x + 836)*(x + 3044);
227
T[16,23]=(x + 184)*(x -4104);
228
T[16,29]=(x + 594)*(x + 3282);
229
T[16,31]=(x + 4256)*(x -5728);
230
T[16,37]=(x + 298)*(x -10326);
231
T[16,41]=(x -17226)*(x + 8886);
232
T[16,43]=(x -9188)*(x -12100);
233
T[16,47]=(x -1296)*(x + 23664);
234
T[16,53]=(x -19494)*(x -11686);
235
T[16,59]=(x + 16876)*(x -7668);
236
T[16,61]=(x + 18482)*(x + 34738);
237
T[16,67]=(x + 21812)*(x -15532);
238
T[16,71]=(x -46872)*(x -31960);
239
T[16,73]=(x + 4886)*(x -67562);
240
T[16,79]=(x -76912)*(x + 44560);
241
T[16,83]=(x + 67364)*(x + 67716);
242
T[16,89]=(x -29754)*(x -71994);
243
T[16,97]=(x -48866)*(x + 122398);
244
245
T[18,2]=(x -4)*(x + 4)^2;
246
T[18,3]=(x )^3;
247
T[18,5]=(x -96)*(x -66)*(x + 96);
248
T[18,7]=(x -176)*(x + 148)^2;
249
T[18,11]=(x -60)*(x -384)*(x + 384);
250
T[18,13]=(x + 658)*(x + 334)^2;
251
T[18,17]=(x + 576)*(x -414)*(x -576);
252
T[18,19]=(x -956)*(x + 664)^2;
253
T[18,23]=(x + 3840)*(x + 600)*(x -3840);
254
T[18,29]=(x + 5574)*(x + 96)*(x -96);
255
T[18,31]=(x + 3592)*(x + 4564)^2;
256
T[18,37]=(x + 8458)*(x -5798)^2;
257
T[18,41]=(x -6720)*(x + 19194)*(x + 6720);
258
T[18,43]=(x -13316)*(x + 14872)^2;
259
T[18,47]=(x -19200)*(x + 19200)*(x -19680);
260
T[18,53]=(x + 7776)*(x -31266)*(x -7776);
261
T[18,59]=(x -13056)*(x + 26340)*(x + 13056);
262
T[18,61]=(x + 31090)*(x -42782)^2;
263
T[18,67]=(x + 16804)*(x -36656)^2;
264
T[18,71]=(x + 64512)*(x + 6120)*(x -64512);
265
T[18,73]=(x + 25558)*(x + 16810)^2;
266
T[18,79]=(x -74408)*(x -28076)^2;
267
T[18,83]=(x + 66432)*(x -66432)*(x -6468);
268
T[18,89]=(x + 81792)*(x -32742)*(x -81792);
269
T[18,97]=(x -166082)*(x + 29938)^2;
270
271
T[20,2]=x ;
272
T[20,3]=x -22;
273
T[20,5]=x + 25;
274
T[20,7]=x -218;
275
T[20,11]=x + 480;
276
T[20,13]=x + 622;
277
T[20,17]=x -186;
278
T[20,19]=x + 1204;
279
T[20,23]=x + 3186;
280
T[20,29]=x -5526;
281
T[20,31]=x -9356;
282
T[20,37]=x -5618;
283
T[20,41]=x + 14394;
284
T[20,43]=x + 370;
285
T[20,47]=x -16146;
286
T[20,53]=x + 4374;
287
T[20,59]=x + 11748;
288
T[20,61]=x -13202;
289
T[20,67]=x + 11542;
290
T[20,71]=x + 29532;
291
T[20,73]=x -33698;
292
T[20,79]=x -31208;
293
T[20,83]=x + 38466;
294
T[20,89]=x -119514;
295
T[20,97]=x -94658;
296
297
}
298