Sharedwww / tables / charpoly_s4new.gpOpen in CoCalc
Author: William A. Stein
1\\ charpoly_s4new.gp
2\\ This is a table of characteristic polynomials of the
3\\ Hecke operators T_p acting on the space S_4^{new}(Gamma_0(N))
4\\ of weight 4 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{
10T=matrix(36,97,m,n,0);
11T[6,2]=x + 2;
12T[6,3]=x + 3;
13T[6,5]=x -6;
14T[6,7]=x + 16;
15T[6,11]=x -12;
16T[6,13]=x -38;
17T[6,17]=x + 126;
18T[6,19]=x -20;
19T[6,23]=x -168;
20T[6,29]=x -30;
21T[6,31]=x + 88;
22T[6,37]=x -254;
23T[6,41]=x -42;
24T[6,43]=x + 52;
25T[6,47]=x + 96;
26T[6,53]=x -198;
27T[6,59]=x + 660;
28T[6,61]=x + 538;
29T[6,67]=x -884;
30T[6,71]=x -792;
31T[6,73]=x -218;
32T[6,79]=x + 520;
33T[6,83]=x + 492;
34T[6,89]=x -810;
35T[6,97]=x -1154;
36
37T[8,2]=x ;
38T[8,3]=x + 4;
39T[8,5]=x + 2;
40T[8,7]=x -24;
41T[8,11]=x + 44;
42T[8,13]=x -22;
43T[8,17]=x -50;
44T[8,19]=x -44;
45T[8,23]=x + 56;
46T[8,29]=x -198;
47T[8,31]=x + 160;
48T[8,37]=x + 162;
49T[8,41]=x + 198;
50T[8,43]=x -52;
51T[8,47]=x -528;
52T[8,53]=x + 242;
53T[8,59]=x + 668;
54T[8,61]=x -550;
55T[8,67]=x -188;
56T[8,71]=x -728;
57T[8,73]=x -154;
58T[8,79]=x + 656;
59T[8,83]=x -236;
60T[8,89]=x -714;
61T[8,97]=x + 478;
62
63T[9,2]=x ;
64T[9,3]=x ;
65T[9,5]=x ;
66T[9,7]=x -20;
67T[9,11]=x ;
68T[9,13]=x + 70;
69T[9,17]=x ;
70T[9,19]=x -56;
71T[9,23]=x ;
72T[9,29]=x ;
73T[9,31]=x -308;
74T[9,37]=x -110;
75T[9,41]=x ;
76T[9,43]=x + 520;
77T[9,47]=x ;
78T[9,53]=x ;
79T[9,59]=x ;
80T[9,61]=x -182;
81T[9,67]=x + 880;
82T[9,71]=x ;
83T[9,73]=x -1190;
84T[9,79]=x -884;
85T[9,83]=x ;
86T[9,89]=x ;
87T[9,97]=x + 1330;
88
89T[10,2]=x -2;
90T[10,3]=x + 8;
91T[10,5]=x -5;
92T[10,7]=x + 4;
93T[10,11]=x -12;
94T[10,13]=x + 58;
95T[10,17]=x -66;
96T[10,19]=x + 100;
97T[10,23]=x -132;
98T[10,29]=x + 90;
99T[10,31]=x -152;
100T[10,37]=x + 34;
101T[10,41]=x + 438;
102T[10,43]=x -32;
103T[10,47]=x + 204;
104T[10,53]=x -222;
105T[10,59]=x -420;
106T[10,61]=x -902;
107T[10,67]=x + 1024;
108T[10,71]=x -432;
109T[10,73]=x -362;
110T[10,79]=x + 160;
111T[10,83]=x -72;
112T[10,89]=x -810;
113T[10,97]=x -1106;
114
115T[12,2]=x ;
116T[12,3]=x -3;
117T[12,5]=x + 18;
118T[12,7]=x -8;
119T[12,11]=x -36;
120T[12,13]=x + 10;
121T[12,17]=x -18;
122T[12,19]=x + 100;
123T[12,23]=x -72;
124T[12,29]=x + 234;
125T[12,31]=x + 16;
126T[12,37]=x + 226;
127T[12,41]=x -90;
128T[12,43]=x -452;
129T[12,47]=x -432;
130T[12,53]=x -414;
131T[12,59]=x + 684;
132T[12,61]=x -422;
133T[12,67]=x -332;
134T[12,71]=x + 360;
135T[12,73]=x -26;
136T[12,79]=x -512;
137T[12,83]=x + 1188;
138T[12,89]=x + 630;
139T[12,97]=x + 1054;
140
141T[14,2]=(x -2)*(x + 2);
142T[14,3]=(x + 2)*(x -8);
143T[14,5]=(x + 14)*(x + 12);
144T[14,7]=(x -7)*(x + 7);
145T[14,11]=(x -48)*(x + 28);
146T[14,13]=(x -56)*(x -18);
147T[14,17]=(x -74)*(x + 114);
148T[14,19]=(x -2)*(x -80);
149T[14,23]=(x + 112)*(x + 120);
150T[14,29]=(x + 54)*(x -190);
151T[14,31]=(x -236)*(x -72);
152T[14,37]=(x + 346)*(x -146);
153T[14,41]=(x -162)*(x -126);
154T[14,43]=(x + 376)*(x + 412);
155T[14,47]=(x -24)*(x + 12);
156T[14,53]=(x -174)*(x -318);
157T[14,59]=(x + 200)*(x -138);
158T[14,61]=(x -380)*(x + 198);
159T[14,67]=(x + 716)*(x + 484);
160T[14,71]=(x -576)*(x -392);
161T[14,73]=(x + 1150)*(x -538);
162T[14,79]=(x -776)*(x -240);
163T[14,83]=(x -378)*(x + 1072);
164T[14,89]=(x -810)*(x + 390);
165T[14,97]=(x + 1330)*(x -1354);
166
167T[15,2]=(x -1)*(x -3);
168T[15,3]=(x + 3)*(x -3);
169T[15,5]=(x + 5)*(x -5);
170T[15,7]=(x -20)*(x + 24);
171T[15,11]=(x -52)*(x + 24);
172T[15,13]=(x -22)*(x -74);
173T[15,17]=(x -54)*(x + 14);
174T[15,19]=(x + 20)*(x + 124);
175T[15,23]=(x + 168)*(x + 120);
176T[15,29]=(x -230)*(x + 78);
177T[15,31]=(x -200)*(x + 288);
178T[15,37]=(x + 70)*(x + 34);
179T[15,41]=(x -330)*(x -122);
180T[15,43]=(x + 188)*(x -92);
181T[15,47]=(x -256)*(x + 24);
182T[15,53]=(x -450)*(x + 338);
183T[15,59]=(x -100)*(x -24);
184T[15,61]=(x + 322)*(x -742);
185T[15,67]=(x + 196)*(x + 84);
186T[15,71]=(x + 328)*(x + 288);
187T[15,73]=(x + 38)*(x + 430);
188T[15,79]=(x + 520)*(x + 240);
189T[15,83]=(x -156)*(x -1212);
190T[15,89]=(x -1026)*(x -330);
191T[15,97]=(x + 286)*(x -866);
192
193T[16,2]=x ;
194T[16,3]=x -4;
195T[16,5]=x + 2;
196T[16,7]=x + 24;
197T[16,11]=x -44;
198T[16,13]=x -22;
199T[16,17]=x -50;
200T[16,19]=x + 44;
201T[16,23]=x -56;
202T[16,29]=x -198;
203T[16,31]=x -160;
204T[16,37]=x + 162;
205T[16,41]=x + 198;
206T[16,43]=x + 52;
207T[16,47]=x + 528;
208T[16,53]=x + 242;
209T[16,59]=x -668;
210T[16,61]=x -550;
211T[16,67]=x + 188;
212T[16,71]=x + 728;
213T[16,73]=x -154;
214T[16,79]=x -656;
215T[16,83]=x + 236;
216T[16,89]=x -714;
217T[16,97]=x + 478;
218
219T[18,2]=x -2;
220T[18,3]=x ;
221T[18,5]=x + 6;
222T[18,7]=x + 16;
223T[18,11]=x + 12;
224T[18,13]=x -38;
225T[18,17]=x -126;
226T[18,19]=x -20;
227T[18,23]=x + 168;
228T[18,29]=x + 30;
229T[18,31]=x + 88;
230T[18,37]=x -254;
231T[18,41]=x + 42;
232T[18,43]=x + 52;
233T[18,47]=x -96;
234T[18,53]=x + 198;
235T[18,59]=x -660;
236T[18,61]=x + 538;
237T[18,67]=x -884;
238T[18,71]=x + 792;
239T[18,73]=x -218;
240T[18,79]=x + 520;
241T[18,83]=x -492;
242T[18,89]=x + 810;
243T[18,97]=x -1154;
244
245T[20,2]=x ;
246T[20,3]=x -4;
247T[20,5]=x -5;
248T[20,7]=x + 16;
249T[20,11]=x + 60;
250T[20,13]=x -86;
251T[20,17]=x -18;
252T[20,19]=x -44;
253T[20,23]=x -48;
254T[20,29]=x + 186;
255T[20,31]=x -176;
256T[20,37]=x -254;
257T[20,41]=x -186;
258T[20,43]=x + 100;
259T[20,47]=x -168;
260T[20,53]=x + 498;
261T[20,59]=x + 252;
262T[20,61]=x + 58;
263T[20,67]=x + 1036;
264T[20,71]=x -168;
265T[20,73]=x -506;
266T[20,79]=x -272;
267T[20,83]=x -948;
268T[20,89]=x + 1014;
269T[20,97]=x + 766;
270
271T[21,2]=(x -4)*(x + 3)*(x^2 + 3*x -12);
272T[21,3]=(x -3)^2*(x + 3)^2;
273T[21,5]=(x + 18)*(x + 4)*(x^2 -6*x -48);
274T[21,7]=(x + 7)*(x -7)^3;
275T[21,11]=(x -62)*(x + 36)*(x^2 + 6*x -1416);
276T[21,13]=(x + 62)*(x + 34)*(x^2 -16*x -1988);
277T[21,17]=(x -84)*(x -42)*(x^2 + 6*x -48);
278T[21,19]=(x -100)*(x + 124)*(x^2 -64*x -7184);
279T[21,23]=(x + 42)*(x^2 -6*x -16464)*(x );
280T[21,29]=(x -102)*(x + 10)*(x^2 + 252*x + 7668);
281T[21,31]=(x + 160)*(x + 48)*(x^2 -40*x -73472);
282T[21,37]=(x + 246)*(x -398)*(x^2 + 248*x -3092);
283T[21,41]=(x + 318)*(x + 248)*(x^2 + 450*x + 37800);
284T[21,43]=(x -68)*(x + 268)*(x^2 -376*x + 2512);
285T[21,47]=(x -240)*(x -324)*(x^2 + 12*x -65856);
286T[21,53]=(x -258)*(x + 498)*(x^2 + 1104*x + 304476);
287T[21,59]=(x + 132)*(x -120)*(x^2 -804*x -30144);
288T[21,61]=(x -398)*(x -622)*(x^2 + 428*x -28076);
289T[21,67]=(x -92)*(x -904)*(x^2 -148*x -160736);
290T[21,71]=(x + 720)*(x + 678)*(x^2 -954*x + 214704);
291T[21,73]=(x + 642)*(x + 502)*(x^2 -1072*x + 285244);
292T[21,79]=(x + 1024)*(x -740)*(x^2 + 572*x -84416);
293T[21,83]=(x -468)*(x + 204)*(x^2 -1944*x + 813456);
294T[21,89]=(x -200)*(x -354)*(x^2 -366*x -253848);
295T[21,97]=(x + 286)*(x + 1266)*(x^2 -808*x -922292);
296
297T[22,2]=(x -2)*(x + 2)^2;
298T[22,3]=(x + 7)*(x -1)*(x -4);
299T[22,5]=(x + 19)*(x + 3)*(x -14);
300T[22,7]=(x -14)*(x + 8)*(x + 10);
301T[22,11]=(x + 11)*(x -11)^2;
302T[22,13]=(x + 72)*(x + 50)*(x + 16);
303T[22,17]=(x + 46)*(x -130)*(x -42);
304T[22,19]=(x + 20)*(x + 108)*(x -116);
305T[22,23]=(x + 107)*(x -189)*(x + 96);
306T[22,29]=(x -120)*(x -142)*(x + 120);
307T[22,31]=(x -40)*(x + 163)*(x -117);
308T[22,37]=(x -382)*(x + 201)*(x + 409);
309T[22,41]=(x -468)*(x + 228)*(x + 118);
310T[22,43]=(x -220)*(x + 242)*(x -110);
311T[22,47]=(x -144)*(x -520)*(x + 96);
312T[22,53]=(x -238)*(x -458)*(x -90);
313T[22,59]=(x -435)*(x + 852)*(x + 453);
314T[22,61]=(x -20)*(x -190)*(x + 668);
315T[22,67]=(x -439)*(x + 97)*(x + 12);
316T[22,71]=(x + 1113)*(x + 112)*(x + 465);
317T[22,73]=(x + 72)*(x -848)*(x + 6);
318T[22,79]=(x + 742)*(x + 70)*(x -304);
319T[22,83]=(x -358)*(x -438)*(x -820);
320T[22,89]=(x + 273)*(x -895)*(x -202);
321T[22,97]=(x + 1406)*(x -409)*(x -761);
322
323T[24,2]=x ;
324T[24,3]=x -3;
325T[24,5]=x -14;
326T[24,7]=x + 24;
327T[24,11]=x + 28;
328T[24,13]=x + 74;
329T[24,17]=x -82;
330T[24,19]=x -92;
331T[24,23]=x -8;
332T[24,29]=x + 138;
333T[24,31]=x -80;
334T[24,37]=x -30;
335T[24,41]=x -282;
336T[24,43]=x -4;
337T[24,47]=x -240;
338T[24,53]=x + 130;
339T[24,59]=x -596;
340T[24,61]=x + 218;
341T[24,67]=x + 436;
342T[24,71]=x -856;
343T[24,73]=x + 998;
344T[24,79]=x + 32;
345T[24,83]=x + 1508;
346T[24,89]=x + 246;
347T[24,97]=x -866;
348
349T[25,2]=(x -1)*(x + 1)*(x -4);
350T[25,3]=(x + 7)*(x -7)*(x + 2);
351T[25,5]=(x )^3;
352T[25,7]=(x -6)*(x + 6)^2;
353T[25,11]=(x -32)*(x + 43)^2;
354T[25,13]=(x -38)*(x + 28)*(x -28);
355T[25,17]=(x -91)*(x + 91)*(x + 26);
356T[25,19]=(x -100)*(x + 35)^2;
357T[25,23]=(x -162)*(x -78)*(x + 162);
358T[25,29]=(x + 50)*(x -160)^2;
359T[25,31]=(x + 108)*(x -42)^2;
360T[25,37]=(x + 266)*(x -314)*(x + 314);
361T[25,41]=(x -22)*(x + 203)^2;
362T[25,43]=(x -92)*(x + 442)*(x + 92);
363T[25,47]=(x + 196)*(x -514)*(x -196);
364T[25,53]=(x -82)*(x + 2)*(x + 82);
365T[25,59]=(x -500)*(x + 280)^2;
366T[25,61]=(x + 518)^3;
367T[25,67]=(x -141)*(x + 141)*(x + 126);
368T[25,71]=(x -412)^3;
369T[25,73]=(x + 763)*(x -763)*(x -878);
370T[25,79]=(x -600)*(x -510)^2;
371T[25,83]=(x + 282)*(x -777)*(x + 777);
372T[25,89]=(x + 150)*(x + 945)^2;
373T[25,97]=(x -1246)*(x + 1246)*(x + 386);
374
375T[26,2]=(x + 2)*(x -2)^2;
376T[26,3]=(x + 1)*(x -4)*(x -3);
377T[26,5]=(x -11)*(x + 18)*(x -17);
378T[26,7]=(x -19)*(x + 35)*(x -20);
379T[26,11]=(x + 48)*(x + 38)*(x -2);
380T[26,13]=(x + 13)*(x -13)^2;
381T[26,17]=(x + 51)*(x -66)*(x + 19);
382T[26,19]=(x + 16)*(x -94)*(x -90);
383T[26,23]=(x -168)*(x + 72)*(x + 52);
384T[26,29]=(x + 190)*(x -246)*(x -6);
385T[26,31]=(x -292)*(x -20)*(x + 100);
386T[26,37]=(x + 441)*(x + 11)*(x -254);
387T[26,41]=(x + 280)*(x -312)*(x + 390);
388T[26,43]=(x + 124)*(x -241)*(x -373);
389T[26,47]=(x + 41)*(x -137)*(x + 468);
390T[26,53]=(x -468)*(x -558)*(x + 232);
391T[26,59]=(x -530)*(x + 386)*(x + 96);
392T[26,61]=(x -592)*(x + 826)*(x -64);
393T[26,67]=(x + 160)*(x + 206)*(x + 670);
394T[26,71]=(x + 420)*(x + 863)*(x -55);
395T[26,73]=(x + 322)*(x + 838)*(x -362);
396T[26,79]=(x -1016)*(x -776)*(x + 460);
397T[26,83]=(x -420)*(x -528)*(x );
398T[26,89]=(x -1626)*(x -870)*(x + 934);
399T[26,97]=(x + 1154)*(x + 346)*(x + 1294);
400
401T[27,2]=(x + 3)*(x -3)*(x^2 -18);
402T[27,3]=(x )^4;
403T[27,5]=(x + 15)*(x -15)*(x^2 -288);
404T[27,7]=(x -11)^2*(x + 25)^2;
405T[27,11]=(x + 15)*(x -15)*(x^2 -288);
406T[27,13]=(x -29)^2*(x -20)^2;
407T[27,17]=(x -72)*(x + 72)*(x^2 -2592);
408T[27,19]=(x -2)^2*(x -29)^2;
409T[27,23]=(x -114)*(x + 114)*(x^2 -7200);
410T[27,29]=(x -30)*(x + 30)*(x^2 -73728);
411T[27,31]=(x -101)^2*(x + 268)^2;
412T[27,37]=(x -83)^2*(x + 430)^2;
413T[27,41]=(x + 30)*(x -30)*(x^2 -73728);
414T[27,43]=(x + 232)^2*(x -110)^2;
415T[27,47]=(x + 330)*(x -330)*(x^2 -152352);
416T[27,53]=(x + 621)*(x -621)*(x^2 -93312);
417T[27,59]=(x + 660)*(x -660)*(x^2 -83232);
418T[27,61]=(x -767)^2*(x + 376)^2;
419T[27,67]=(x + 511)^2*(x + 250)^2;
420T[27,71]=(x + 360)*(x -360)*(x^2 -508032);
421T[27,73]=(x -785)^2*(x -137)^2;
422T[27,79]=(x + 475)^2*(x -488)^2;
423T[27,83]=(x + 489)*(x -489)*(x^2 -332928);
424T[27,89]=(x -450)*(x + 450)*(x^2 -64800);
425T[27,97]=(x + 1105)^2*(x -821)^2;
426
427T[28,2]=(x )^2;
428T[28,3]=(x + 10)*(x -4);
429T[28,5]=(x + 8)*(x -6);
430T[28,7]=(x + 7)*(x -7);
431T[28,11]=(x + 40)*(x + 12);
432T[28,13]=(x + 82)*(x + 12);
433T[28,17]=(x + 30)*(x + 58);
434T[28,19]=(x -68)*(x -26);
435T[28,23]=(x -216)*(x + 64);
436T[28,29]=(x -246)*(x + 62);
437T[28,31]=(x -252)*(x + 112);
438T[28,37]=(x -26)*(x -110);
439T[28,41]=(x -6)*(x + 246);
440T[28,43]=(x + 172)*(x -416);
441T[28,47]=(x -192)*(x + 396);
442T[28,53]=(x + 450)*(x -558);
443T[28,59]=(x -540)*(x -274);
444T[28,61]=(x -110)*(x + 576);
445T[28,67]=(x + 476)*(x -140);
446T[28,71]=(x + 448)*(x + 840);
447T[28,73]=(x + 550)*(x + 158);
448T[28,79]=(x + 936)*(x + 208);
449T[28,83]=(x -516)*(x -530);
450T[28,89]=(x + 1398)*(x + 390);
451T[28,97]=(x -214)*(x -1586);
452
453T[30,2]=(x -2)*(x + 2);
454T[30,3]=(x -3)^2;
455T[30,5]=(x + 5)*(x -5);
456T[30,7]=(x -32)*(x + 4);
457T[30,11]=(x + 48)*(x + 60);
458T[30,13]=(x -2)*(x + 34);
459T[30,17]=(x -42)*(x + 114);
460T[30,19]=(x -140)*(x + 76);
461T[30,23]=(x -72)*(x );
462T[30,29]=(x -210)*(x -6);
463T[30,31]=(x -272)*(x + 232);
464T[30,37]=(x -134)*(x + 334);
465T[30,41]=(x -234)*(x + 198);
466T[30,43]=(x + 412)*(x + 268);
467T[30,47]=(x + 360)*(x -216);
468T[30,53]=(x + 78)*(x -222);
469T[30,59]=(x -660)*(x -240);
470T[30,61]=(x -302)*(x + 490);
471T[30,67]=(x -596)*(x -812);
472T[30,71]=(x + 768)*(x -120);
473T[30,73]=(x + 478)*(x -746);
474T[30,79]=(x + 640)*(x -152);
475T[30,83]=(x + 348)*(x + 804);
476T[30,89]=(x -210)*(x + 678);
477T[30,97]=(x -194)*(x + 1534);
478
479T[32,2]=(x )^3;
480T[32,3]=(x + 8)*(x -8)*(x );
481T[32,5]=(x -22)*(x + 10)^2;
482T[32,7]=(x + 16)*(x -16)*(x );
483T[32,11]=(x + 40)*(x -40)*(x );
484T[32,13]=(x + 18)*(x + 50)^2;
485T[32,17]=(x + 94)*(x + 30)^2;
486T[32,19]=(x + 40)*(x -40)*(x );
487T[32,23]=(x -48)*(x + 48)*(x );
488T[32,29]=(x + 130)*(x + 34)^2;
489T[32,31]=(x + 320)*(x -320)*(x );
490T[32,37]=(x -214)*(x -310)^2;
491T[32,41]=(x + 230)*(x -410)^2;
492T[32,43]=(x + 152)*(x -152)*(x );
493T[32,47]=(x + 416)*(x -416)*(x );
494T[32,53]=(x -518)*(x + 410)^2;
495T[32,59]=(x + 200)*(x -200)*(x );
496T[32,61]=(x -830)*(x -30)^2;
497T[32,67]=(x -776)*(x + 776)*(x );
498T[32,71]=(x -400)*(x + 400)*(x );
499T[32,73]=(x -1098)*(x + 630)^2;
500T[32,79]=(x + 1120)*(x -1120)*(x );
501T[32,83]=(x -552)*(x + 552)*(x );
502T[32,89]=(x + 1670)*(x + 326)^2;
503T[32,97]=(x -594)*(x + 110)^2;
504
505T[33,2]=(x + 1)*(x + 5)*(x^2 -x -8)*(x^2 -x -24);
506T[33,3]=(x -3)^3*(x + 3)^3;
507T[33,5]=(x + 14)*(x + 4)*(x^2 -16*x -68)*(x^2 + 14*x -48);
508T[33,7]=(x + 26)*(x + 32)*(x^2 -2*x -32)*(x^2 -24*x -244);
509T[33,11]=(x -11)^3*(x + 11)^3;
510T[33,13]=(x + 38)*(x + 32)*(x^2 -30*x + 128)*(x^2 + 76*x + 916);
511T[33,17]=(x -74)*(x + 2)*(x^2 -106*x -1944)*(x^2 + 26*x -7256);
512T[33,19]=(x -72)*(x + 60)*(x^2 + 54*x -1944)*(x^2 -50*x + 528);
513T[33,23]=(x + 182)*(x -68)*(x^2 -134*x + 2064)*(x -112)^2;
514T[33,29]=(x + 54)*(x + 90)*(x^2 -222*x -5136)*(x^2 + 198*x + 8928);
515T[33,31]=(x + 152)*(x + 8)*(x^2 -360*x + 30848)*(x^2 + 40*x -88832);
516T[33,37]=(x -174)*(x + 66)*(x^2 + 328*x -38676)*(x^2 + 48*x -15396);
517T[33,41]=(x -422)*(x -94)*(x^2 + 782*x + 148128)*(x^2 + 494*x + 60976);
518T[33,43]=(x -408)*(x + 528)*(x^2 + 66*x -59928)*(x^2 -386*x + 20856);
519T[33,47]=(x + 340)*(x + 506)*(x^2 -266*x -115104)*(x^2 + 64*x -17984);
520T[33,53]=(x + 438)*(x -348)*(x^2 + 84*x -133404)*(x^2 + 522*x -2592);
521T[33,59]=(x + 200)*(x -20)*(x^2 + 172*x -235104)*(x -196)^2;
522T[33,61]=(x -570)*(x -132)*(x^2 + 1104*x + 282396)*(x^2 + 778*x + 123288);
523T[33,67]=(x + 460)*(x + 1036)*(x^2 -928*x + 24688)*(x^2 + 776*x -72944);
524T[33,71]=(x -762)*(x + 1092)*(x^2 -456*x -227328)*(x^2 -630*x + 28512);
525T[33,73]=(x -562)*(x + 542)*(x^2 + 592*x -436292)*(x^2 -1296*x + 400892);
526T[33,79]=(x + 16)*(x + 550)*(x^2 -652*x -396572)*(x^2 + 230*x -31952);
527T[33,83]=(x + 132)*(x -372)*(x^2 + 324*x -563904)*(x^2 -348*x -835776);
528T[33,89]=(x -570)*(x + 966)*(x^2 + 756*x + 17172)*(x^2 -972*x + 235668);
529T[33,97]=(x -14)*(x + 526)*(x^2 + 452*x -842876)*(x^2 + 1184*x -1104836);
530
531T[34,2]=(x + 2)^2*(x -2)^2;
532T[34,3]=(x^2 -6*x -4)*(x + 2)^2;
533T[34,5]=(x -16)*(x + 18)*(x^2 + 4*x -204);
534T[34,7]=(x -24)*(x + 10)*(x^2 + 6*x -4);
535T[34,11]=(x + 6)*(x -62)*(x^2 + 6*x -2916);
536T[34,13]=(x -74)*(x + 62)*(x^2 + 64*x -1524);
537T[34,17]=(x + 17)*(x -17)^3;
538T[34,19]=(x + 20)*(x + 88)*(x^2 + 36*x -2224);
539T[34,23]=(x + 114)*(x + 12)*(x^2 -42*x -612);
540T[34,29]=(x + 90)*(x -80)*(x^2 -428*x + 40596);
541T[34,31]=(x + 310)*(x + 208)*(x^2 -86*x -5028);
542T[34,37]=(x -86)*(x + 356)*(x^2 -340*x + 21412);
543T[34,41]=(x -90)*(x -22)*(x^2 -404*x -59868);
544T[34,43]=(x + 312)*(x -368)*(x^2 + 620*x + 91888);
545T[34,47]=(x -24)*(x + 384)*(x^2 + 56*x -283968);
546T[34,53]=(x + 462)*(x + 258)*(x^2 -28*x -300156);
547T[34,59]=(x^2 -276*x + 7344)*(x -240)^2;
548T[34,61]=(x -302)*(x -812)*(x^2 + 236*x -16028);
549T[34,67]=(x + 964)*(x + 216)*(x^2 -536*x -141168);
550T[34,71]=(x -732)*(x + 390)*(x^2 -1542*x + 574668);
551T[34,73]=(x -722)*(x -178)*(x^2 + 164*x -309644);
552T[34,79]=(x + 898)*(x -700)*(x^2 + 1854*x + 704876);
553T[34,83]=(x + 992)*(x -912)*(x^2 + 372*x -22032);
554T[34,89]=(x + 390)*(x -1446)*(x^2 + 1976*x + 974844);
555T[34,97]=(x + 146)*(x + 1438)*(x^2 + 220*x -71100);
556
557T[35,2]=(x -1)*(x^2 -8*x + 14)*(x^3 + 3*x^2 -14*x -30);
558T[35,3]=(x + 8)*(x^2 -2*x -31)*(x^3 -2*x^2 -79*x + 68);
559T[35,5]=(x -5)^3*(x + 5)^3;
560T[35,7]=(x + 7)^2*(x -7)^4;
561T[35,11]=(x -12)*(x^2 + 14*x -1999)*(x^3 + 74*x^2 + 1577*x + 7692);
562T[35,13]=(x + 78)*(x^2 -50*x + 593)*(x^3 -44*x^2 -3491*x -44870);
563T[35,17]=(x + 94)*(x^2 + 50*x -3247)*(x^3 + 52*x^2 -11747*x -56706);
564T[35,19]=(x -40)*(x^2 -36*x -3548)*(x^3 -168*x^2 + 5620*x -28720);
565T[35,23]=(x -32)*(x^2 -244*x + 5636)*(x^3 + 124*x^2 + 1732*x -94368);
566T[35,29]=(x + 50)*(x^2 + 26*x -983)*(x^3 -332*x^2 + 7405*x + 2565450);
567T[35,31]=(x + 248)*(x^2 + 120*x -61200)*(x^3 -320*x^2 + 23968*x + 50176);
568T[35,37]=(x + 434)*(x^2 -564*x + 72324)*(x^3 + 54*x^2 -12116*x + 25736);
569T[35,41]=(x -402)*(x^2 + 328*x -3856)*(x^3 -362*x^2 + 41536*x -1536192);
570T[35,43]=(x + 68)*(x^2 + 260*x + 7652)*(x^3 + 16*x^2 -89516*x -1524560);
571T[35,47]=(x -536)*(x^2 + 350*x -4223)*(x^3 + 730*x^2 + 116057*x + 4968912);
572T[35,53]=(x -22)*(x^2 + 56*x -31984)*(x^3 -110*x^2 -340672*x + 90318336);
573T[35,59]=(x + 560)*(x^3 + 180*x^2 -612560*x -202459200)*(x + 616)^2;
574T[35,61]=(x + 278)*(x^2 -336*x + 4896)*(x^3 -1222*x^2 + 422816*x -38393792);
575T[35,67]=(x + 164)*(x^2 + 152*x -2416)*(x^3 -204*x^2 -810240*x + 324944128);
576T[35,71]=(x -672)*(x^3 + 136*x^2 -173056*x + 15575040)*(x + 952)^2;
577T[35,73]=(x -82)*(x^2 -676*x -122428)*(x^3 -310*x^2 -716772*x + 48718616);
578T[35,79]=(x + 1000)*(x^2 -1014*x + 134041)*(x^3 + 1034*x^2 -384855*x -343615600);
579T[35,83]=(x + 448)*(x^2 + 376*x -684656)*(x^3 + 1660*x^2 + 489008*x -42727104);
580T[35,89]=(x + 870)*(x^2 + 216*x + 7792)*(x^3 -242*x^2 -687680*x -6359520);
581T[35,97]=(x -1026)*(x^2 -2742*x + 1782841)*(x^3 -100*x^2 -471963*x -1978018);
582
583T[36,2]=x ;
584T[36,3]=x ;
585T[36,5]=x -18;
586T[36,7]=x -8;
587T[36,11]=x + 36;
588T[36,13]=x + 10;
589T[36,17]=x + 18;
590T[36,19]=x + 100;
591T[36,23]=x + 72;
592T[36,29]=x -234;
593T[36,31]=x + 16;
594T[36,37]=x + 226;
595T[36,41]=x + 90;
596T[36,43]=x -452;
597T[36,47]=x + 432;
598T[36,53]=x + 414;
599T[36,59]=x -684;
600T[36,61]=x -422;
601T[36,67]=x -332;
602T[36,71]=x -360;
603T[36,73]=x -26;
604T[36,79]=x -512;
605T[36,83]=x -1188;
606T[36,89]=x -630;
607T[36,97]=x + 1054;
608}
609