\\ charpoly_s4.gp \\ This is a table of characteristic polynomials of the \\ Hecke operators T_p acting on the space S_4(Gamma_0(N)) \\ of weight 4 cusp forms for Gamma_0(N). \\ William Stein (was@math.berkeley.edu), September, 1998. { T=matrix(20,97,m,n,0); T[5,2]=x + 4; T[5,3]=x -2; T[5,5]=x + 5; T[5,7]=x -6; T[5,11]=x -32; T[5,13]=x + 38; T[5,17]=x -26; T[5,19]=x -100; T[5,23]=x + 78; T[5,29]=x + 50; T[5,31]=x + 108; T[5,37]=x -266; T[5,41]=x -22; T[5,43]=x -442; T[5,47]=x + 514; T[5,53]=x -2; T[5,59]=x -500; T[5,61]=x + 518; T[5,67]=x -126; T[5,71]=x -412; T[5,73]=x + 878; T[5,79]=x -600; T[5,83]=x -282; T[5,89]=x + 150; T[5,97]=x -386; T[6,2]=x + 2; T[6,3]=x + 3; T[6,5]=x -6; T[6,7]=x + 16; T[6,11]=x -12; T[6,13]=x -38; T[6,17]=x + 126; T[6,19]=x -20; T[6,23]=x -168; T[6,29]=x -30; T[6,31]=x + 88; T[6,37]=x -254; T[6,41]=x -42; T[6,43]=x + 52; T[6,47]=x + 96; T[6,53]=x -198; T[6,59]=x + 660; T[6,61]=x + 538; T[6,67]=x -884; T[6,71]=x -792; T[6,73]=x -218; T[6,79]=x + 520; T[6,83]=x + 492; T[6,89]=x -810; T[6,97]=x -1154; T[7,2]=x + 1; T[7,3]=x + 2; T[7,5]=x -16; T[7,7]=x + 7; T[7,11]=x + 8; T[7,13]=x -28; T[7,17]=x -54; T[7,19]=x + 110; T[7,23]=x -48; T[7,29]=x + 110; T[7,31]=x -12; T[7,37]=x + 246; T[7,41]=x -182; T[7,43]=x -128; T[7,47]=x -324; T[7,53]=x + 162; T[7,59]=x -810; T[7,61]=x + 488; T[7,67]=x -244; T[7,71]=x + 768; T[7,73]=x + 702; T[7,79]=x -440; T[7,83]=x + 1302; T[7,89]=x -730; T[7,97]=x -294; T[8,2]=x ; T[8,3]=x + 4; T[8,5]=x + 2; T[8,7]=x -24; T[8,11]=x + 44; T[8,13]=x -22; T[8,17]=x -50; T[8,19]=x -44; T[8,23]=x + 56; T[8,29]=x -198; T[8,31]=x + 160; T[8,37]=x + 162; T[8,41]=x + 198; T[8,43]=x -52; T[8,47]=x -528; T[8,53]=x + 242; T[8,59]=x + 668; T[8,61]=x -550; T[8,67]=x -188; T[8,71]=x -728; T[8,73]=x -154; T[8,79]=x + 656; T[8,83]=x -236; T[8,89]=x -714; T[8,97]=x + 478; T[9,2]=x ; T[9,3]=x ; T[9,5]=x ; T[9,7]=x -20; T[9,11]=x ; T[9,13]=x + 70; T[9,17]=x ; T[9,19]=x -56; T[9,23]=x ; T[9,29]=x ; T[9,31]=x -308; T[9,37]=x -110; T[9,41]=x ; T[9,43]=x + 520; T[9,47]=x ; T[9,53]=x ; T[9,59]=x ; T[9,61]=x -182; T[9,67]=x + 880; T[9,71]=x ; T[9,73]=x -1190; T[9,79]=x -884; T[9,83]=x ; T[9,89]=x ; T[9,97]=x + 1330; T[10,2]=(x -2)*(x^2 + 4*x + 8); T[10,3]=(x + 8)*(x -2)^2; T[10,5]=(x -5)*(x + 5)^2; T[10,7]=(x + 4)*(x -6)^2; T[10,11]=(x -12)*(x -32)^2; T[10,13]=(x + 58)*(x + 38)^2; T[10,17]=(x -66)*(x -26)^2; T[10,19]=(x + 100)*(x -100)^2; T[10,23]=(x -132)*(x + 78)^2; T[10,29]=(x + 90)*(x + 50)^2; T[10,31]=(x -152)*(x + 108)^2; T[10,37]=(x + 34)*(x -266)^2; T[10,41]=(x + 438)*(x -22)^2; T[10,43]=(x -32)*(x -442)^2; T[10,47]=(x + 204)*(x + 514)^2; T[10,53]=(x -222)*(x -2)^2; T[10,59]=(x -420)*(x -500)^2; T[10,61]=(x -902)*(x + 518)^2; T[10,67]=(x + 1024)*(x -126)^2; T[10,71]=(x -432)*(x -412)^2; T[10,73]=(x -362)*(x + 878)^2; T[10,79]=(x + 160)*(x -600)^2; T[10,83]=(x -72)*(x -282)^2; T[10,89]=(x -810)*(x + 150)^2; T[10,97]=(x -1106)*(x -386)^2; T[11,2]=x^2 -2*x -2; T[11,3]=x^2 + 2*x -47; T[11,5]=x^2 -2*x -191; T[11,7]=x^2 -20*x + 52; T[11,11]=(x + 11)^2; T[11,13]=x^2 -80*x + 400; T[11,17]=x^2 + 124*x + 3412; T[11,19]=x^2 -72*x -9504; T[11,23]=x^2 + 98*x -1487; T[11,29]=x^2 -144*x -4224; T[11,31]=x^2 + 34*x -2063; T[11,37]=x^2 -54*x + 537; T[11,41]=x^2 -536*x + 71776; T[11,43]=x^2 + 60*x + 132; T[11,47]=x^2 + 272*x -24704; T[11,53]=x^2 + 492*x + 51108; T[11,59]=x^2 -634*x + 48217; T[11,61]=x^2 -840*x + 74832; T[11,67]=x^2 -754*x + 140929; T[11,71]=x^2 + 678*x + 97593; T[11,73]=x^2 + 400*x -617072; T[11,79]=x^2 -316*x -1266044; T[11,83]=x^2 -468*x + 11556; T[11,89]=x^2 + 1842*x + 525489; T[11,97]=x^2 -2194*x + 1141201; T[12,2]=(x + 2)*(x )^2; T[12,3]=(x -3)*(x + 3)^2; T[12,5]=(x + 18)*(x -6)^2; T[12,7]=(x -8)*(x + 16)^2; T[12,11]=(x -36)*(x -12)^2; T[12,13]=(x + 10)*(x -38)^2; T[12,17]=(x -18)*(x + 126)^2; T[12,19]=(x + 100)*(x -20)^2; T[12,23]=(x -72)*(x -168)^2; T[12,29]=(x + 234)*(x -30)^2; T[12,31]=(x + 16)*(x + 88)^2; T[12,37]=(x + 226)*(x -254)^2; T[12,41]=(x -90)*(x -42)^2; T[12,43]=(x -452)*(x + 52)^2; T[12,47]=(x -432)*(x + 96)^2; T[12,53]=(x -414)*(x -198)^2; T[12,59]=(x + 684)*(x + 660)^2; T[12,61]=(x -422)*(x + 538)^2; T[12,67]=(x -332)*(x -884)^2; T[12,71]=(x + 360)*(x -792)^2; T[12,73]=(x -26)*(x -218)^2; T[12,79]=(x -512)*(x + 520)^2; T[12,83]=(x + 1188)*(x + 492)^2; T[12,89]=(x + 630)*(x -810)^2; T[12,97]=(x + 1054)*(x -1154)^2; T[13,2]=(x + 5)*(x^2 -x -4); T[13,3]=(x + 7)*(x^2 -5*x -32); T[13,5]=(x + 7)*(x^2 + 3*x -2); T[13,7]=(x + 13)*(x^2 + 9*x -494); T[13,11]=(x + 26)*(x^2 -80*x + 988); T[13,13]=(x -13)*(x + 13)^2; T[13,17]=(x -77)*(x^2 -19*x -1138); T[13,19]=(x + 126)*(x^2 + 84*x -2588); T[13,23]=(x + 96)*(x^2 -196*x + 8992); T[13,29]=(x + 82)*(x^2 + 44*x -38684); T[13,31]=(x -196)*(x^2 + 86*x -3064); T[13,37]=(x + 131)*(x^2 -209*x + 10814); T[13,41]=(x -336)*(x^2 + 230*x + 11168); T[13,43]=(x + 201)*(x^2 -287*x -66316); T[13,47]=(x + 105)*(x^2 -435*x -14918); T[13,53]=(x + 432)*(x^2 + 118*x -344); T[13,59]=(x + 294)*(x^2 + 368*x -31492); T[13,61]=(x + 56)*(x^2 + 1058*x + 126416); T[13,67]=(x -478)*(x^2 -68*x -227596); T[13,71]=(x -9)*(x^2 + 131*x -222494); T[13,73]=(x -98)*(x^2 -456*x -235316); T[13,79]=(x -1304)*(x^2 + 1008*x + 247216); T[13,83]=(x + 308)*(x^2 -1958*x + 817664); T[13,89]=(x + 1190)*(x^2 + 720*x -510212); T[13,97]=(x -70)*(x^2 + 928*x -881476); T[14,2]=(x + 2)*(x -2)*(x^2 + x + 8); T[14,3]=(x -8)*(x + 2)^3; T[14,5]=(x + 14)*(x + 12)*(x -16)^2; T[14,7]=(x -7)*(x + 7)^3; T[14,11]=(x -48)*(x + 28)*(x + 8)^2; T[14,13]=(x -56)*(x -18)*(x -28)^2; T[14,17]=(x -74)*(x + 114)*(x -54)^2; T[14,19]=(x -2)*(x -80)*(x + 110)^2; T[14,23]=(x + 112)*(x + 120)*(x -48)^2; T[14,29]=(x + 54)*(x -190)*(x + 110)^2; T[14,31]=(x -236)*(x -72)*(x -12)^2; T[14,37]=(x + 346)*(x -146)*(x + 246)^2; T[14,41]=(x -162)*(x -126)*(x -182)^2; T[14,43]=(x + 376)*(x + 412)*(x -128)^2; T[14,47]=(x -24)*(x + 12)*(x -324)^2; T[14,53]=(x -174)*(x -318)*(x + 162)^2; T[14,59]=(x + 200)*(x -138)*(x -810)^2; T[14,61]=(x -380)*(x + 198)*(x + 488)^2; T[14,67]=(x + 716)*(x + 484)*(x -244)^2; T[14,71]=(x -576)*(x -392)*(x + 768)^2; T[14,73]=(x -538)*(x + 1150)*(x + 702)^2; T[14,79]=(x -240)*(x -776)*(x -440)^2; T[14,83]=(x -378)*(x + 1072)*(x + 1302)^2; T[14,89]=(x -810)*(x + 390)*(x -730)^2; T[14,97]=(x -1354)*(x + 1330)*(x -294)^2; T[15,2]=(x -1)*(x -3)*(x + 4)^2; T[15,3]=(x -3)*(x + 3)*(x^2 -2*x + 27); T[15,5]=(x -5)*(x + 5)^3; T[15,7]=(x + 24)*(x -20)*(x -6)^2; T[15,11]=(x + 24)*(x -52)*(x -32)^2; T[15,13]=(x -22)*(x -74)*(x + 38)^2; T[15,17]=(x -54)*(x + 14)*(x -26)^2; T[15,19]=(x + 124)*(x + 20)*(x -100)^2; T[15,23]=(x + 168)*(x + 120)*(x + 78)^2; T[15,29]=(x -230)*(x + 78)*(x + 50)^2; T[15,31]=(x + 288)*(x -200)*(x + 108)^2; T[15,37]=(x + 34)*(x + 70)*(x -266)^2; T[15,41]=(x -330)*(x -122)*(x -22)^2; T[15,43]=(x -92)*(x + 188)*(x -442)^2; T[15,47]=(x -256)*(x + 24)*(x + 514)^2; T[15,53]=(x + 338)*(x -450)*(x -2)^2; T[15,59]=(x -100)*(x -24)*(x -500)^2; T[15,61]=(x + 322)*(x -742)*(x + 518)^2; T[15,67]=(x + 84)*(x + 196)*(x -126)^2; T[15,71]=(x + 328)*(x + 288)*(x -412)^2; T[15,73]=(x + 430)*(x + 38)*(x + 878)^2; T[15,79]=(x + 240)*(x + 520)*(x -600)^2; T[15,83]=(x -1212)*(x -156)*(x -282)^2; T[15,89]=(x -330)*(x -1026)*(x + 150)^2; T[15,97]=(x + 286)*(x -866)*(x -386)^2; T[16,2]=(x )^3; T[16,3]=(x -4)*(x + 4)^2; T[16,5]=(x + 2)^3; T[16,7]=(x + 24)*(x -24)^2; T[16,11]=(x -44)*(x + 44)^2; T[16,13]=(x -22)^3; T[16,17]=(x -50)^3; T[16,19]=(x + 44)*(x -44)^2; T[16,23]=(x -56)*(x + 56)^2; T[16,29]=(x -198)^3; T[16,31]=(x -160)*(x + 160)^2; T[16,37]=(x + 162)^3; T[16,41]=(x + 198)^3; T[16,43]=(x + 52)*(x -52)^2; T[16,47]=(x + 528)*(x -528)^2; T[16,53]=(x + 242)^3; T[16,59]=(x -668)*(x + 668)^2; T[16,61]=(x -550)^3; T[16,67]=(x + 188)*(x -188)^2; T[16,71]=(x + 728)*(x -728)^2; T[16,73]=(x -154)^3; T[16,79]=(x -656)*(x + 656)^2; T[16,83]=(x + 236)*(x -236)^2; T[16,89]=(x -714)^3; T[16,97]=(x + 478)^3; T[17,2]=(x + 3)*(x^3 -x^2 -24*x + 32); T[17,3]=(x + 8)*(x^3 -4*x^2 -62*x + 204); T[17,5]=(x -6)*(x^3 + 8*x^2 -44*x + 32); T[17,7]=(x + 28)*(x^3 -22*x^2 -138*x + 792); T[17,11]=(x + 24)*(x^3 + 28*x^2 -1366*x -4692); T[17,13]=(x + 58)*(x^3 -30*x^2 -1472*x -9392); T[17,17]=(x -17)*(x + 17)^3; T[17,19]=(x -116)*(x^3 -80*x^2 -4632*x + 340128); T[17,23]=(x + 60)*(x^3 -142*x^2 -15770*x + 1600544); T[17,29]=(x -30)*(x^3 + 456*x^2 + 53908*x + 1518624); T[17,31]=(x + 172)*(x^3 -230*x^2 -11586*x -81608); T[17,37]=(x + 58)*(x^3 -356*x^2 -17964*x + 6176752); T[17,41]=(x + 342)*(x^3 + 294*x^2 -86564*x -1638744); T[17,43]=(x + 148)*(x^3 -556*x^2 + 51096*x + 7270272); T[17,47]=(x -288)*(x^3 -640*x^2 + 85328*x -1671168); T[17,53]=(x -318)*(x^3 -302*x^2 -153460*x + 18162072); T[17,59]=(x -252)*(x^3 -636*x^2 -101768*x + 49419072); T[17,61]=(x -110)*(x^3 + 84*x^2 -124412*x -6792784); T[17,67]=(x + 484)*(x^3 -1008*x^2 + 65040*x -765952); T[17,71]=(x + 708)*(x^3 + 402*x^2 -589874*x -274866016); T[17,73]=(x -362)*(x^3 -838*x^2 + 227852*x -19957512); T[17,79]=(x + 484)*(x^3 + 594*x^2 -1121274*x -742135824); T[17,83]=(x -756)*(x^3 + 2396*x^2 + 1488888*x + 142080704); T[17,89]=(x + 774)*(x^3 + 170*x^2 -1072304*x -446571376); T[17,97]=(x + 382)*(x^3 + 270*x^2 -586100*x -206623000); T[18,2]=(x -2)*(x^2 + 8)*(x + 2)^2; T[18,3]=(x + 3)*(x )^4; T[18,5]=(x + 6)*(x -6)^2*(x )^2; T[18,7]=(x -20)^2*(x + 16)^3; T[18,11]=(x + 12)*(x -12)^2*(x )^2; T[18,13]=(x + 70)^2*(x -38)^3; T[18,17]=(x -126)*(x + 126)^2*(x )^2; T[18,19]=(x -56)^2*(x -20)^3; T[18,23]=(x + 168)*(x -168)^2*(x )^2; T[18,29]=(x + 30)*(x -30)^2*(x )^2; T[18,31]=(x -308)^2*(x + 88)^3; T[18,37]=(x -110)^2*(x -254)^3; T[18,41]=(x + 42)*(x -42)^2*(x )^2; T[18,43]=(x + 520)^2*(x + 52)^3; T[18,47]=(x -96)*(x + 96)^2*(x )^2; T[18,53]=(x + 198)*(x -198)^2*(x )^2; T[18,59]=(x -660)*(x + 660)^2*(x )^2; T[18,61]=(x -182)^2*(x + 538)^3; T[18,67]=(x + 880)^2*(x -884)^3; T[18,71]=(x + 792)*(x -792)^2*(x )^2; T[18,73]=(x -1190)^2*(x -218)^3; T[18,79]=(x -884)^2*(x + 520)^3; T[18,83]=(x -492)*(x + 492)^2*(x )^2; T[18,89]=(x + 810)*(x -810)^2*(x )^2; T[18,97]=(x + 1330)^2*(x -1154)^3; T[19,2]=(x + 3)*(x^3 -3*x^2 -18*x + 38); T[19,3]=(x + 5)*(x^3 -x^2 -64*x + 172); T[19,5]=(x + 12)*(x^3 -14*x^2 -71*x -72); T[19,7]=(x -11)*(x^3 + 35*x^2 + 147*x -2319); T[19,11]=(x + 54)*(x^3 -16*x^2 -51*x + 1182); T[19,13]=(x -11)*(x^3 -65*x^2 + 744*x + 4848); T[19,17]=(x + 93)*(x^3 -29*x^2 -9225*x -218619); T[19,19]=(x -19)*(x + 19)^3; T[19,23]=(x -183)*(x^3 + 101*x^2 -4624*x -378176); T[19,29]=(x + 249)*(x^3 -377*x^2 + 8768*x + 4544396); T[19,31]=(x -56)*(x^3 + 140*x^2 -37616*x -2444352); T[19,37]=(x + 250)*(x^3 + 290*x^2 -46772*x -10001448); T[19,41]=(x -240)*(x^3 -956*x^2 + 302116*x -31578144); T[19,43]=(x + 196)*(x^3 + 570*x^2 -92583*x -65963504); T[19,47]=(x + 168)*(x^3 -66*x^2 -31311*x + 2940624); T[19,53]=(x -435)*(x^3 -817*x^2 + 211080*x -16824816); T[19,59]=(x -195)*(x^3 -265*x^2 -157992*x + 31557612); T[19,61]=(x + 358)*(x^3 -988*x^2 + 45701*x + 76875874); T[19,67]=(x + 961)*(x^3 + 207*x^2 -59928*x -7515248); T[19,71]=(x + 246)*(x^3 -846*x^2 + 172860*x + 1727928); T[19,73]=(x -353)*(x^3 -627*x^2 -355485*x + 145581839); T[19,79]=(x + 34)*(x^3 -382*x^2 -669888*x -56023488); T[19,83]=(x -234)*(x^3 + 766*x^2 -35648*x -78728352); T[19,89]=(x + 168)*(x^3 + 172*x^2 -844784*x -76923456); T[19,97]=(x -758)*(x^3 + 2450*x^2 + 1384544*x + 196438912); T[20,2]=(x -2)*(x^2 + 4*x + 8)*(x )^3; T[20,3]=(x -4)*(x + 8)^2*(x -2)^3; T[20,5]=(x + 5)^3*(x -5)^3; T[20,7]=(x + 16)*(x + 4)^2*(x -6)^3; T[20,11]=(x + 60)*(x -12)^2*(x -32)^3; T[20,13]=(x -86)*(x + 58)^2*(x + 38)^3; T[20,17]=(x -18)*(x -66)^2*(x -26)^3; T[20,19]=(x -44)*(x + 100)^2*(x -100)^3; T[20,23]=(x -48)*(x -132)^2*(x + 78)^3; T[20,29]=(x + 186)*(x + 90)^2*(x + 50)^3; T[20,31]=(x -176)*(x -152)^2*(x + 108)^3; T[20,37]=(x -254)*(x + 34)^2*(x -266)^3; T[20,41]=(x -186)*(x + 438)^2*(x -22)^3; T[20,43]=(x + 100)*(x -32)^2*(x -442)^3; T[20,47]=(x -168)*(x + 204)^2*(x + 514)^3; T[20,53]=(x + 498)*(x -222)^2*(x -2)^3; T[20,59]=(x + 252)*(x -420)^2*(x -500)^3; T[20,61]=(x + 58)*(x -902)^2*(x + 518)^3; T[20,67]=(x + 1036)*(x + 1024)^2*(x -126)^3; T[20,71]=(x -168)*(x -432)^2*(x -412)^3; T[20,73]=(x -506)*(x -362)^2*(x + 878)^3; T[20,79]=(x -272)*(x + 160)^2*(x -600)^3; T[20,83]=(x -948)*(x -72)^2*(x -282)^3; T[20,89]=(x + 1014)*(x -810)^2*(x + 150)^3; T[20,97]=(x + 766)*(x -1106)^2*(x -386)^3;