\\ primitive_modular_genus2.m
\\
\\ "Primitive modular curves of genus 2 over Q such that their jacobians are Q-simple".
\\ 
\\ When there is a unique curve for a given level $N$, this is denoted  by C[N],
\\ otherwise we use the notation C[N,A],C[N,B]...
\\
\\ Reference: Gonzalez-Jimenez, E and Gonzalez, J. "Modular curves of genus 2". Math. Comp. 72, no. 241, 397—418, (2003).
\\ 
\\ Enrique Gonzalez-Jimenez (enrikegj@mat.uab.es)


C[13]=x^6+4*x^5+6*x^4+2*x^3+x^2+2*x+1;

C[16]=x^6+2*x^5-x^4-x^2-2*x+1;

C[18]=x^6+2*x^5+5*x^4+10*x^3+10*x^2+4*x+1;

C[23]=x^6-8*x^5+2*x^4+2*x^3-11*x^2+10*x-7;

C[28]=x^5-4*x^4-13*x^3-9*x^2-x;

C[29]=x^6+2*x^5-17*x^4-66*x^3-83*x^2-32*x-4;

C[31]=x^6-14*x^5+61*x^4-106*x^3+66*x^2-8*x-3;

C[35]=x^6-4*x^5+2*x^4-32*x^3-27*x^2-64*x-76;

C[39]=x^6+6*x^5-5*x^4-66*x^3-59*x^2-12*x;

C[40]=x^5-3*x^4-12*x^2-16*x;

C[45]=x^6+22*x^3+125;

C[48]=x^5-5*x^4+20*x^2-16*x;

C[52]=x^5-5*x^3-5*x^2-x;

C[63]=x^6-26*x^3-27;

C[64,A]=x^5-16*x;

C[64,B]=x^5-2*x^4-2*x^2-x;

C[67]=x^6+2*x^5+x^4-2*x^3+2*x^2-4*x+1;

C[68]=x^5-11*x^4+7*x^3+7*x^2-12*x+8;

C[73]=x^6+2*x^5+x^4+6*x^3+2*x^2-4*x+1;

C[80]=x^5+3*x^4+12*x^2-16*x;

C[81]=x^6-18*x^3-27;

C[85]=x^6+2*x^5+7*x^4+6*x^3+13*x^2-8*x+4;

C[87]=x^6-6*x^5+13*x^4-18*x^3+10*x^2-3;

C[88]=x^5-8*x^4-4*x^3+36*x^2-32*x;

C[93]=x^6+6*x^5+5*x^4-6*x^3+2*x^2+1;

C[100]=x^5+5*x^3+5*x-11;

C[103]=x^6+6*x^5+5*x^4+2*x^3+2*x^2+1;

C[104]=x^5-8*x^4+x^3+30*x^2-20*x+8;

C[107]=x^6-4*x^5+10*x^4-18*x^3+17*x^2-10*x+1;

C[112,A]=x^5+3*x^4+x^3-2*x^2-x;

C[112,B]=x^5-3*x^4+x^3+2*x^2-x;

C[112,C]=x^5+4*x^4-13*x^3+9*x^2-x;

C[115]=x^6+6*x^5+5*x^4+10*x^3+2*x^2+1;

C[117]=x^6-10*x^3-27;

C[125]=x^6-4*x^5+10*x^4-10*x^3+5*x^2+2*x-3;

C[128]=x^5+64*x;

C[133]=x^6+10*x^5+17*x^4+14*x^3+10*x^2+4*x+1;

C[135]=x^6-6*x^5+21*x^4-54*x^3+90*x^2-108*x+45;

C[136]=x^5-19*x^3-14*x^2+28*x-8;

C[147]=x^6+6*x^5+11*x^4+6*x^3+5*x^2+4;

C[148]=x^5+8*x^4+11*x^3+3*x^2-x;

C[160,A]=x^5-12*x^3-64*x;

C[160,B]=x^5-11*x^4-11*x^2-x;

C[160,C]=x^5+x^4+x^2-x;

C[160,D]=x^5-x^4-x^2-x;

C[160,E]=x^5+11*x^4+11*x^2-x;

C[161]=x^6+2*x^4-6*x^3+17*x^2-18*x+5;

C[165]=x^6+6*x^5+11*x^4+14*x^3+5*x^2-12*x;

C[167]=x^6-4*x^5+2*x^4-2*x^3-3*x^2+2*x-3;

C[175]=x^6+2*x^5-3*x^4+6*x^3-14*x^2+8*x-3;

C[176]=x^5+3*x^4-26*x^3+14*x^2+x+7;

C[177]=x^6+2*x^4-6*x^3+5*x^2-6*x+1;

C[184]=x^5-14*x^3-7*x^2+19*x-7;

C[188,A]=x^5-x^4+x^3+x^2-2*x+1;

C[188,B]=x^5-5*x^4+5*x^3-15*x^2+6*x-11;

C[189]=x^6-2*x^3-27;

C[191]=x^6+2*x^4+2*x^3+5*x^2-6*x+1;

C[192]=x^5-5*x^4+20*x^3-40*x^2+44*x-20;

C[205]=x^6+2*x^4+10*x^3+5*x^2-6*x+1;

C[207]=x^6+6*x^5+3*x^4-26*x^3-27*x^2-12*x;

C[208,A]=x^5-5*x^3+5*x^2-x;

C[208,B]=x^5+3*x^4-21*x^3+5*x^2+16*x-12;

C[209]=x^6-4*x^5+8*x^4-8*x^3+8*x^2+4*x+4;

C[213]=x^6+2*x^4+2*x^3-7*x^2+6*x-3;

C[221]=x^6+4*x^5+2*x^4+6*x^3+x^2-2*x+1;

C[224,A]=x^5-13*x^4+48*x^3-36*x^2-32*x+32;

C[224,B]=x^5+3*x^4-16*x^3-20*x^2+64*x-32;

C[243]=x^6+6*x^3-27;

C[256]=x^5-64*x;

C[261]=x^6-6*x^4+10*x^3+21*x^2-30*x+9;

C[272,A]=x^5-10*x^4+21*x^3+48*x^2-176*x+128;

C[272,B]=x^5+11*x^4+7*x^3-7*x^2-12*x-8;

C[275]=x^6-4*x^5+2*x^4-22*x^3-15*x^2-30*x-35;

C[280]=x^5-5*x^4+3*x^3+9*x^2-20*x;

C[287]=x^6-4*x^5+2*x^4+6*x^3-15*x^2+14*x-7;

C[297]=x^6+6*x^5+3*x^4-36*x^3-69*x^2-54*x-15;

C[299]=x^6-10*x^5+41*x^4-78*x^3+66*x^2-28*x+5;

C[315]=x^6+6*x^5+3*x^4-18*x^3-27*x^2-24*x-4;

C[320]=x^5+12*x^3-64*x;

C[351]=x^6-6*x^4+18*x^3+9*x^2-18*x+5;

C[357]=x^6+8*x^4-8*x^3+20*x^2-12*x+12;

C[368]=x^5-5*x^4-4*x^3+39*x^2-32*x+8;

C[376,A]=x^5-6*x^4+11*x^3-4*x^2-2*x+1;

C[376,B]=x^5-x^3+2*x^2-2*x+1;

C[380]=x^5-5*x^4+3*x^3+7*x^2-3*x+2;

C[400]=x^5+5*x^3+5*x+11;

C[416,A]=x^5-3*x^4+7*x^3-x^2-8*x+20;

C[416,B]=x^5-2*x^4+5*x^3-12*x^2+4*x-16;

C[440,A]=x^5-2*x^3-7*x^2-8*x+8;

C[440,B]=x^5-5*x^4+12*x^3-27*x^2+25*x-30;

C[448,A]=x^5-7*x^4+28*x^3-72*x^2+76*x-12;

C[448,B]=x^5-3*x^4+12*x^3-8*x^2-20*x+4;

C[476,A]=x^5-3*x^4+5*x^3-x^2-2*x+1;

C[476,B]=x^5-2*x^4+3*x^3-6*x^2-7;

C[512,A]=x^5+4*x^3-4*x;

C[512,B]=x^5-4*x^3-4*x;

C[525]=x^6+2*x^4-10*x^3-7*x^2-30*x+9;

C[544]=x^5-x^3-4*x;

C[560]=x^5-7*x^3+2*x^2-8*x+12;

C[592]=x^5-8*x^4+11*x^3-3*x^2-x;

C[621]=x^6-6*x^5+21*x^4-42*x^3+42*x^2-24*x+5;

C[640,A]=x^5-10*x^4+42*x^3-96*x^2+112*x-64;

C[640,B]=x^5+2*x^3+4*x^2-8*x+16;

C[645]=x^6+8*x^4+20*x^2+12*x+4;

C[704,A]=x^5-2*x^4+10*x^3-18*x^2+16*x-16;

C[704,B]=x^5-3*x^4+12*x^3-10*x^2+7*x+9;

C[752,A]=x^5-5*x^3+20*x^2-24*x+19;

C[752,B]=x^5-4*x^4+7*x^3-8*x^2+4*x-1;

C[752,C]=x^5+x^4-3*x^3-3*x^2+4*x-1;

C[752,D]=x^5-5*x^4+9*x^3-9*x^2+4*x-1;

C[768,A]=x^5-x^4+2*x^3+2*x^2-2*x-2;

C[768,B]=x^5+x^4+2*x^3-2*x^2-2*x+2;

C[783]=x^6-6*x^4+10*x^3-15*x^2+6*x-3;

C[880,A]=x^5-5*x^4+8*x^3+3*x^2-23*x+8;

C[880,B]=x^5+2*x^3+11*x^2-8*x+24;

C[952]=x^5-8*x^4+27*x^3-30*x^2+18*x-7;

C[928,A]=x^5+5*x^4+5*x^2-x;

C[928,B]=x^5-5*x^4-5*x^2-x;

C[1053]=x^6-6*x^4+18*x^3-27*x^2+18*x-7;

C[1088]=x^5+x^3-4*x;

C[1120,A]=x^5+5*x^4+17*x^3+15*x^2-14*x;

C[1120,B]=x^5-5*x^4+17*x^3-15*x^2-14*x;

C[1280,A]=x^5+2*x^3-4*x;

C[1280,B]=x^5-2*x^3-4*x;

C[1280,C]=x^5+22*x^3-4*x;

C[1280,D]=x^5-22*x^3-4*x;

C[1280,E]=x^5+8*x^3-4*x;

C[1280,F]=x^5-8*x^3-4*x;

C[1280,G]=x^5+5*x^4+22*x^3+14*x^2-3*x+1;

C[1280,H]=x^5-5*x^4+22*x^3-14*x^2-3*x-1;

C[1312]=x^5-5*x^3-4*x;

C[1520]=x^5+5*x^4+3*x^3-7*x^2-3*x-2;

C[1792,A]=x^5-3*x^4-2*x^3+2*x^2+10*x+6;

C[1792,B]=x^5+3*x^4-2*x^3-2*x^2+10*x-6;

C[1820]=x^5+7*x^3-16*x^2+12*x+1;

C[1904,A]=x^5-2*x^4+3*x^3-6*x^2+4*x-1;

C[1904,B]=x^5+2*x^4+3*x^3+6*x^2+7;

C[1904,C]=x^5+3*x^4+5*x^3-13*x^2+12*x-1;

C[1916]=x^5+3*x^4-7*x^3+5*x^2-2*x+1;

C[2080]=x^5+7*x^3-4*x;

C[2240,A]=x^5-5*x^4+17*x^3-33*x^2+40*x-30;

C[2240,B]=x^5+5*x^4+17*x^3+33*x^2+40*x+30;

C[2624]=x^5+5*x^3-4*x;

C[3159]=x^6-6*x^5+21*x^4-26*x^3+18*x^2-3;

C[4160]=x^5-7*x^3-4*x;

C[7280]=x^5-5*x^4+17*x^3-15*x^2+6*x-5;

C[7424,A]=x^5+10*x^3-4*x;

C[7424,B]=x^5-10*x^3-4*x;

C[7664]=x^5-3*x^4-7*x^3-5*x^2-2*x-1;
