Sharedwww / Tables / charpoly_s4.gpOpen in CoCalc
Author: William A. Stein
1
\\ charpoly_s4.gp
2
\\ This is a table of characteristic polynomials of the
3
\\ Hecke operators T_p acting on the space S_4(Gamma_0(N))
4
\\ of weight 4 cusp forms for Gamma_0(N).
5
\\ William Stein ([email protected]), September, 1998.
6
7
{
8
T=matrix(20,97,m,n,0);
9
T[5,2]=x + 4;
10
T[5,3]=x -2;
11
T[5,5]=x + 5;
12
T[5,7]=x -6;
13
T[5,11]=x -32;
14
T[5,13]=x + 38;
15
T[5,17]=x -26;
16
T[5,19]=x -100;
17
T[5,23]=x + 78;
18
T[5,29]=x + 50;
19
T[5,31]=x + 108;
20
T[5,37]=x -266;
21
T[5,41]=x -22;
22
T[5,43]=x -442;
23
T[5,47]=x + 514;
24
T[5,53]=x -2;
25
T[5,59]=x -500;
26
T[5,61]=x + 518;
27
T[5,67]=x -126;
28
T[5,71]=x -412;
29
T[5,73]=x + 878;
30
T[5,79]=x -600;
31
T[5,83]=x -282;
32
T[5,89]=x + 150;
33
T[5,97]=x -386;
34
35
T[6,2]=x + 2;
36
T[6,3]=x + 3;
37
T[6,5]=x -6;
38
T[6,7]=x + 16;
39
T[6,11]=x -12;
40
T[6,13]=x -38;
41
T[6,17]=x + 126;
42
T[6,19]=x -20;
43
T[6,23]=x -168;
44
T[6,29]=x -30;
45
T[6,31]=x + 88;
46
T[6,37]=x -254;
47
T[6,41]=x -42;
48
T[6,43]=x + 52;
49
T[6,47]=x + 96;
50
T[6,53]=x -198;
51
T[6,59]=x + 660;
52
T[6,61]=x + 538;
53
T[6,67]=x -884;
54
T[6,71]=x -792;
55
T[6,73]=x -218;
56
T[6,79]=x + 520;
57
T[6,83]=x + 492;
58
T[6,89]=x -810;
59
T[6,97]=x -1154;
60
61
T[7,2]=x + 1;
62
T[7,3]=x + 2;
63
T[7,5]=x -16;
64
T[7,7]=x + 7;
65
T[7,11]=x + 8;
66
T[7,13]=x -28;
67
T[7,17]=x -54;
68
T[7,19]=x + 110;
69
T[7,23]=x -48;
70
T[7,29]=x + 110;
71
T[7,31]=x -12;
72
T[7,37]=x + 246;
73
T[7,41]=x -182;
74
T[7,43]=x -128;
75
T[7,47]=x -324;
76
T[7,53]=x + 162;
77
T[7,59]=x -810;
78
T[7,61]=x + 488;
79
T[7,67]=x -244;
80
T[7,71]=x + 768;
81
T[7,73]=x + 702;
82
T[7,79]=x -440;
83
T[7,83]=x + 1302;
84
T[7,89]=x -730;
85
T[7,97]=x -294;
86
87
T[8,2]=x ;
88
T[8,3]=x + 4;
89
T[8,5]=x + 2;
90
T[8,7]=x -24;
91
T[8,11]=x + 44;
92
T[8,13]=x -22;
93
T[8,17]=x -50;
94
T[8,19]=x -44;
95
T[8,23]=x + 56;
96
T[8,29]=x -198;
97
T[8,31]=x + 160;
98
T[8,37]=x + 162;
99
T[8,41]=x + 198;
100
T[8,43]=x -52;
101
T[8,47]=x -528;
102
T[8,53]=x + 242;
103
T[8,59]=x + 668;
104
T[8,61]=x -550;
105
T[8,67]=x -188;
106
T[8,71]=x -728;
107
T[8,73]=x -154;
108
T[8,79]=x + 656;
109
T[8,83]=x -236;
110
T[8,89]=x -714;
111
T[8,97]=x + 478;
112
113
T[9,2]=x ;
114
T[9,3]=x ;
115
T[9,5]=x ;
116
T[9,7]=x -20;
117
T[9,11]=x ;
118
T[9,13]=x + 70;
119
T[9,17]=x ;
120
T[9,19]=x -56;
121
T[9,23]=x ;
122
T[9,29]=x ;
123
T[9,31]=x -308;
124
T[9,37]=x -110;
125
T[9,41]=x ;
126
T[9,43]=x + 520;
127
T[9,47]=x ;
128
T[9,53]=x ;
129
T[9,59]=x ;
130
T[9,61]=x -182;
131
T[9,67]=x + 880;
132
T[9,71]=x ;
133
T[9,73]=x -1190;
134
T[9,79]=x -884;
135
T[9,83]=x ;
136
T[9,89]=x ;
137
T[9,97]=x + 1330;
138
139
T[10,2]=(x -2)*(x^2 + 4*x + 8);
140
T[10,3]=(x + 8)*(x -2)^2;
141
T[10,5]=(x -5)*(x + 5)^2;
142
T[10,7]=(x + 4)*(x -6)^2;
143
T[10,11]=(x -12)*(x -32)^2;
144
T[10,13]=(x + 58)*(x + 38)^2;
145
T[10,17]=(x -66)*(x -26)^2;
146
T[10,19]=(x + 100)*(x -100)^2;
147
T[10,23]=(x -132)*(x + 78)^2;
148
T[10,29]=(x + 90)*(x + 50)^2;
149
T[10,31]=(x -152)*(x + 108)^2;
150
T[10,37]=(x + 34)*(x -266)^2;
151
T[10,41]=(x + 438)*(x -22)^2;
152
T[10,43]=(x -32)*(x -442)^2;
153
T[10,47]=(x + 204)*(x + 514)^2;
154
T[10,53]=(x -222)*(x -2)^2;
155
T[10,59]=(x -420)*(x -500)^2;
156
T[10,61]=(x -902)*(x + 518)^2;
157
T[10,67]=(x + 1024)*(x -126)^2;
158
T[10,71]=(x -432)*(x -412)^2;
159
T[10,73]=(x -362)*(x + 878)^2;
160
T[10,79]=(x + 160)*(x -600)^2;
161
T[10,83]=(x -72)*(x -282)^2;
162
T[10,89]=(x -810)*(x + 150)^2;
163
T[10,97]=(x -1106)*(x -386)^2;
164
165
T[11,2]=x^2 -2*x -2;
166
T[11,3]=x^2 + 2*x -47;
167
T[11,5]=x^2 -2*x -191;
168
T[11,7]=x^2 -20*x + 52;
169
T[11,11]=(x + 11)^2;
170
T[11,13]=x^2 -80*x + 400;
171
T[11,17]=x^2 + 124*x + 3412;
172
T[11,19]=x^2 -72*x -9504;
173
T[11,23]=x^2 + 98*x -1487;
174
T[11,29]=x^2 -144*x -4224;
175
T[11,31]=x^2 + 34*x -2063;
176
T[11,37]=x^2 -54*x + 537;
177
T[11,41]=x^2 -536*x + 71776;
178
T[11,43]=x^2 + 60*x + 132;
179
T[11,47]=x^2 + 272*x -24704;
180
T[11,53]=x^2 + 492*x + 51108;
181
T[11,59]=x^2 -634*x + 48217;
182
T[11,61]=x^2 -840*x + 74832;
183
T[11,67]=x^2 -754*x + 140929;
184
T[11,71]=x^2 + 678*x + 97593;
185
T[11,73]=x^2 + 400*x -617072;
186
T[11,79]=x^2 -316*x -1266044;
187
T[11,83]=x^2 -468*x + 11556;
188
T[11,89]=x^2 + 1842*x + 525489;
189
T[11,97]=x^2 -2194*x + 1141201;
190
191
T[12,2]=(x + 2)*(x )^2;
192
T[12,3]=(x -3)*(x + 3)^2;
193
T[12,5]=(x + 18)*(x -6)^2;
194
T[12,7]=(x -8)*(x + 16)^2;
195
T[12,11]=(x -36)*(x -12)^2;
196
T[12,13]=(x + 10)*(x -38)^2;
197
T[12,17]=(x -18)*(x + 126)^2;
198
T[12,19]=(x + 100)*(x -20)^2;
199
T[12,23]=(x -72)*(x -168)^2;
200
T[12,29]=(x + 234)*(x -30)^2;
201
T[12,31]=(x + 16)*(x + 88)^2;
202
T[12,37]=(x + 226)*(x -254)^2;
203
T[12,41]=(x -90)*(x -42)^2;
204
T[12,43]=(x -452)*(x + 52)^2;
205
T[12,47]=(x -432)*(x + 96)^2;
206
T[12,53]=(x -414)*(x -198)^2;
207
T[12,59]=(x + 684)*(x + 660)^2;
208
T[12,61]=(x -422)*(x + 538)^2;
209
T[12,67]=(x -332)*(x -884)^2;
210
T[12,71]=(x + 360)*(x -792)^2;
211
T[12,73]=(x -26)*(x -218)^2;
212
T[12,79]=(x -512)*(x + 520)^2;
213
T[12,83]=(x + 1188)*(x + 492)^2;
214
T[12,89]=(x + 630)*(x -810)^2;
215
T[12,97]=(x + 1054)*(x -1154)^2;
216
217
T[13,2]=(x + 5)*(x^2 -x -4);
218
T[13,3]=(x + 7)*(x^2 -5*x -32);
219
T[13,5]=(x + 7)*(x^2 + 3*x -2);
220
T[13,7]=(x + 13)*(x^2 + 9*x -494);
221
T[13,11]=(x + 26)*(x^2 -80*x + 988);
222
T[13,13]=(x -13)*(x + 13)^2;
223
T[13,17]=(x -77)*(x^2 -19*x -1138);
224
T[13,19]=(x + 126)*(x^2 + 84*x -2588);
225
T[13,23]=(x + 96)*(x^2 -196*x + 8992);
226
T[13,29]=(x + 82)*(x^2 + 44*x -38684);
227
T[13,31]=(x -196)*(x^2 + 86*x -3064);
228
T[13,37]=(x + 131)*(x^2 -209*x + 10814);
229
T[13,41]=(x -336)*(x^2 + 230*x + 11168);
230
T[13,43]=(x + 201)*(x^2 -287*x -66316);
231
T[13,47]=(x + 105)*(x^2 -435*x -14918);
232
T[13,53]=(x + 432)*(x^2 + 118*x -344);
233
T[13,59]=(x + 294)*(x^2 + 368*x -31492);
234
T[13,61]=(x + 56)*(x^2 + 1058*x + 126416);
235
T[13,67]=(x -478)*(x^2 -68*x -227596);
236
T[13,71]=(x -9)*(x^2 + 131*x -222494);
237
T[13,73]=(x -98)*(x^2 -456*x -235316);
238
T[13,79]=(x -1304)*(x^2 + 1008*x + 247216);
239
T[13,83]=(x + 308)*(x^2 -1958*x + 817664);
240
T[13,89]=(x + 1190)*(x^2 + 720*x -510212);
241
T[13,97]=(x -70)*(x^2 + 928*x -881476);
242
243
T[14,2]=(x + 2)*(x -2)*(x^2 + x + 8);
244
T[14,3]=(x -8)*(x + 2)^3;
245
T[14,5]=(x + 14)*(x + 12)*(x -16)^2;
246
T[14,7]=(x -7)*(x + 7)^3;
247
T[14,11]=(x -48)*(x + 28)*(x + 8)^2;
248
T[14,13]=(x -56)*(x -18)*(x -28)^2;
249
T[14,17]=(x -74)*(x + 114)*(x -54)^2;
250
T[14,19]=(x -2)*(x -80)*(x + 110)^2;
251
T[14,23]=(x + 112)*(x + 120)*(x -48)^2;
252
T[14,29]=(x + 54)*(x -190)*(x + 110)^2;
253
T[14,31]=(x -236)*(x -72)*(x -12)^2;
254
T[14,37]=(x + 346)*(x -146)*(x + 246)^2;
255
T[14,41]=(x -162)*(x -126)*(x -182)^2;
256
T[14,43]=(x + 376)*(x + 412)*(x -128)^2;
257
T[14,47]=(x -24)*(x + 12)*(x -324)^2;
258
T[14,53]=(x -174)*(x -318)*(x + 162)^2;
259
T[14,59]=(x + 200)*(x -138)*(x -810)^2;
260
T[14,61]=(x -380)*(x + 198)*(x + 488)^2;
261
T[14,67]=(x + 716)*(x + 484)*(x -244)^2;
262
T[14,71]=(x -576)*(x -392)*(x + 768)^2;
263
T[14,73]=(x -538)*(x + 1150)*(x + 702)^2;
264
T[14,79]=(x -240)*(x -776)*(x -440)^2;
265
T[14,83]=(x -378)*(x + 1072)*(x + 1302)^2;
266
T[14,89]=(x -810)*(x + 390)*(x -730)^2;
267
T[14,97]=(x -1354)*(x + 1330)*(x -294)^2;
268
269
T[15,2]=(x -1)*(x -3)*(x + 4)^2;
270
T[15,3]=(x -3)*(x + 3)*(x^2 -2*x + 27);
271
T[15,5]=(x -5)*(x + 5)^3;
272
T[15,7]=(x + 24)*(x -20)*(x -6)^2;
273
T[15,11]=(x + 24)*(x -52)*(x -32)^2;
274
T[15,13]=(x -22)*(x -74)*(x + 38)^2;
275
T[15,17]=(x -54)*(x + 14)*(x -26)^2;
276
T[15,19]=(x + 124)*(x + 20)*(x -100)^2;
277
T[15,23]=(x + 168)*(x + 120)*(x + 78)^2;
278
T[15,29]=(x -230)*(x + 78)*(x + 50)^2;
279
T[15,31]=(x + 288)*(x -200)*(x + 108)^2;
280
T[15,37]=(x + 34)*(x + 70)*(x -266)^2;
281
T[15,41]=(x -330)*(x -122)*(x -22)^2;
282
T[15,43]=(x -92)*(x + 188)*(x -442)^2;
283
T[15,47]=(x -256)*(x + 24)*(x + 514)^2;
284
T[15,53]=(x + 338)*(x -450)*(x -2)^2;
285
T[15,59]=(x -100)*(x -24)*(x -500)^2;
286
T[15,61]=(x + 322)*(x -742)*(x + 518)^2;
287
T[15,67]=(x + 84)*(x + 196)*(x -126)^2;
288
T[15,71]=(x + 328)*(x + 288)*(x -412)^2;
289
T[15,73]=(x + 430)*(x + 38)*(x + 878)^2;
290
T[15,79]=(x + 240)*(x + 520)*(x -600)^2;
291
T[15,83]=(x -1212)*(x -156)*(x -282)^2;
292
T[15,89]=(x -330)*(x -1026)*(x + 150)^2;
293
T[15,97]=(x + 286)*(x -866)*(x -386)^2;
294
295
T[16,2]=(x )^3;
296
T[16,3]=(x -4)*(x + 4)^2;
297
T[16,5]=(x + 2)^3;
298
T[16,7]=(x + 24)*(x -24)^2;
299
T[16,11]=(x -44)*(x + 44)^2;
300
T[16,13]=(x -22)^3;
301
T[16,17]=(x -50)^3;
302
T[16,19]=(x + 44)*(x -44)^2;
303
T[16,23]=(x -56)*(x + 56)^2;
304
T[16,29]=(x -198)^3;
305
T[16,31]=(x -160)*(x + 160)^2;
306
T[16,37]=(x + 162)^3;
307
T[16,41]=(x + 198)^3;
308
T[16,43]=(x + 52)*(x -52)^2;
309
T[16,47]=(x + 528)*(x -528)^2;
310
T[16,53]=(x + 242)^3;
311
T[16,59]=(x -668)*(x + 668)^2;
312
T[16,61]=(x -550)^3;
313
T[16,67]=(x + 188)*(x -188)^2;
314
T[16,71]=(x + 728)*(x -728)^2;
315
T[16,73]=(x -154)^3;
316
T[16,79]=(x -656)*(x + 656)^2;
317
T[16,83]=(x + 236)*(x -236)^2;
318
T[16,89]=(x -714)^3;
319
T[16,97]=(x + 478)^3;
320
321
T[17,2]=(x + 3)*(x^3 -x^2 -24*x + 32);
322
T[17,3]=(x + 8)*(x^3 -4*x^2 -62*x + 204);
323
T[17,5]=(x -6)*(x^3 + 8*x^2 -44*x + 32);
324
T[17,7]=(x + 28)*(x^3 -22*x^2 -138*x + 792);
325
T[17,11]=(x + 24)*(x^3 + 28*x^2 -1366*x -4692);
326
T[17,13]=(x + 58)*(x^3 -30*x^2 -1472*x -9392);
327
T[17,17]=(x -17)*(x + 17)^3;
328
T[17,19]=(x -116)*(x^3 -80*x^2 -4632*x + 340128);
329
T[17,23]=(x + 60)*(x^3 -142*x^2 -15770*x + 1600544);
330
T[17,29]=(x -30)*(x^3 + 456*x^2 + 53908*x + 1518624);
331
T[17,31]=(x + 172)*(x^3 -230*x^2 -11586*x -81608);
332
T[17,37]=(x + 58)*(x^3 -356*x^2 -17964*x + 6176752);
333
T[17,41]=(x + 342)*(x^3 + 294*x^2 -86564*x -1638744);
334
T[17,43]=(x + 148)*(x^3 -556*x^2 + 51096*x + 7270272);
335
T[17,47]=(x -288)*(x^3 -640*x^2 + 85328*x -1671168);
336
T[17,53]=(x -318)*(x^3 -302*x^2 -153460*x + 18162072);
337
T[17,59]=(x -252)*(x^3 -636*x^2 -101768*x + 49419072);
338
T[17,61]=(x -110)*(x^3 + 84*x^2 -124412*x -6792784);
339
T[17,67]=(x + 484)*(x^3 -1008*x^2 + 65040*x -765952);
340
T[17,71]=(x + 708)*(x^3 + 402*x^2 -589874*x -274866016);
341
T[17,73]=(x -362)*(x^3 -838*x^2 + 227852*x -19957512);
342
T[17,79]=(x + 484)*(x^3 + 594*x^2 -1121274*x -742135824);
343
T[17,83]=(x -756)*(x^3 + 2396*x^2 + 1488888*x + 142080704);
344
T[17,89]=(x + 774)*(x^3 + 170*x^2 -1072304*x -446571376);
345
T[17,97]=(x + 382)*(x^3 + 270*x^2 -586100*x -206623000);
346
347
T[18,2]=(x -2)*(x^2 + 8)*(x + 2)^2;
348
T[18,3]=(x + 3)*(x )^4;
349
T[18,5]=(x + 6)*(x -6)^2*(x )^2;
350
T[18,7]=(x -20)^2*(x + 16)^3;
351
T[18,11]=(x + 12)*(x -12)^2*(x )^2;
352
T[18,13]=(x + 70)^2*(x -38)^3;
353
T[18,17]=(x -126)*(x + 126)^2*(x )^2;
354
T[18,19]=(x -56)^2*(x -20)^3;
355
T[18,23]=(x + 168)*(x -168)^2*(x )^2;
356
T[18,29]=(x + 30)*(x -30)^2*(x )^2;
357
T[18,31]=(x -308)^2*(x + 88)^3;
358
T[18,37]=(x -110)^2*(x -254)^3;
359
T[18,41]=(x + 42)*(x -42)^2*(x )^2;
360
T[18,43]=(x + 520)^2*(x + 52)^3;
361
T[18,47]=(x -96)*(x + 96)^2*(x )^2;
362
T[18,53]=(x + 198)*(x -198)^2*(x )^2;
363
T[18,59]=(x -660)*(x + 660)^2*(x )^2;
364
T[18,61]=(x -182)^2*(x + 538)^3;
365
T[18,67]=(x + 880)^2*(x -884)^3;
366
T[18,71]=(x + 792)*(x -792)^2*(x )^2;
367
T[18,73]=(x -1190)^2*(x -218)^3;
368
T[18,79]=(x -884)^2*(x + 520)^3;
369
T[18,83]=(x -492)*(x + 492)^2*(x )^2;
370
T[18,89]=(x + 810)*(x -810)^2*(x )^2;
371
T[18,97]=(x + 1330)^2*(x -1154)^3;
372
373
T[19,2]=(x + 3)*(x^3 -3*x^2 -18*x + 38);
374
T[19,3]=(x + 5)*(x^3 -x^2 -64*x + 172);
375
T[19,5]=(x + 12)*(x^3 -14*x^2 -71*x -72);
376
T[19,7]=(x -11)*(x^3 + 35*x^2 + 147*x -2319);
377
T[19,11]=(x + 54)*(x^3 -16*x^2 -51*x + 1182);
378
T[19,13]=(x -11)*(x^3 -65*x^2 + 744*x + 4848);
379
T[19,17]=(x + 93)*(x^3 -29*x^2 -9225*x -218619);
380
T[19,19]=(x -19)*(x + 19)^3;
381
T[19,23]=(x -183)*(x^3 + 101*x^2 -4624*x -378176);
382
T[19,29]=(x + 249)*(x^3 -377*x^2 + 8768*x + 4544396);
383
T[19,31]=(x -56)*(x^3 + 140*x^2 -37616*x -2444352);
384
T[19,37]=(x + 250)*(x^3 + 290*x^2 -46772*x -10001448);
385
T[19,41]=(x -240)*(x^3 -956*x^2 + 302116*x -31578144);
386
T[19,43]=(x + 196)*(x^3 + 570*x^2 -92583*x -65963504);
387
T[19,47]=(x + 168)*(x^3 -66*x^2 -31311*x + 2940624);
388
T[19,53]=(x -435)*(x^3 -817*x^2 + 211080*x -16824816);
389
T[19,59]=(x -195)*(x^3 -265*x^2 -157992*x + 31557612);
390
T[19,61]=(x + 358)*(x^3 -988*x^2 + 45701*x + 76875874);
391
T[19,67]=(x + 961)*(x^3 + 207*x^2 -59928*x -7515248);
392
T[19,71]=(x + 246)*(x^3 -846*x^2 + 172860*x + 1727928);
393
T[19,73]=(x -353)*(x^3 -627*x^2 -355485*x + 145581839);
394
T[19,79]=(x + 34)*(x^3 -382*x^2 -669888*x -56023488);
395
T[19,83]=(x -234)*(x^3 + 766*x^2 -35648*x -78728352);
396
T[19,89]=(x + 168)*(x^3 + 172*x^2 -844784*x -76923456);
397
T[19,97]=(x -758)*(x^3 + 2450*x^2 + 1384544*x + 196438912);
398
399
T[20,2]=(x -2)*(x^2 + 4*x + 8)*(x )^3;
400
T[20,3]=(x -4)*(x + 8)^2*(x -2)^3;
401
T[20,5]=(x + 5)^3*(x -5)^3;
402
T[20,7]=(x + 16)*(x + 4)^2*(x -6)^3;
403
T[20,11]=(x + 60)*(x -12)^2*(x -32)^3;
404
T[20,13]=(x -86)*(x + 58)^2*(x + 38)^3;
405
T[20,17]=(x -18)*(x -66)^2*(x -26)^3;
406
T[20,19]=(x -44)*(x + 100)^2*(x -100)^3;
407
T[20,23]=(x -48)*(x -132)^2*(x + 78)^3;
408
T[20,29]=(x + 186)*(x + 90)^2*(x + 50)^3;
409
T[20,31]=(x -176)*(x -152)^2*(x + 108)^3;
410
T[20,37]=(x -254)*(x + 34)^2*(x -266)^3;
411
T[20,41]=(x -186)*(x + 438)^2*(x -22)^3;
412
T[20,43]=(x + 100)*(x -32)^2*(x -442)^3;
413
T[20,47]=(x -168)*(x + 204)^2*(x + 514)^3;
414
T[20,53]=(x + 498)*(x -222)^2*(x -2)^3;
415
T[20,59]=(x + 252)*(x -420)^2*(x -500)^3;
416
T[20,61]=(x + 58)*(x -902)^2*(x + 518)^3;
417
T[20,67]=(x + 1036)*(x + 1024)^2*(x -126)^3;
418
T[20,71]=(x -168)*(x -432)^2*(x -412)^3;
419
T[20,73]=(x -506)*(x -362)^2*(x + 878)^3;
420
T[20,79]=(x -272)*(x + 160)^2*(x -600)^3;
421
T[20,83]=(x -948)*(x -72)^2*(x -282)^3;
422
T[20,89]=(x + 1014)*(x -810)^2*(x + 150)^3;
423
T[20,97]=(x + 766)*(x -1106)^2*(x -386)^3;
424
425