\\package:elldata
default(parisize,"10M");
{
  forell(e,1,100,
    my(E=ellinit(e[2]), m = ellmaninconstant(E), c = ellmaninconstant(E,1));
    if (m!=c, error(e[1]));
  );
}

E=ellinit("15a1"); M =ellisomat(E); L = ellisomat(E,1);
ellmaninconstant(M)
ellmaninconstant(M,1)

M5 = ["11a3"];
M4 = ["15a8","17a4"];
M3=["14a6", "14a4", "19a3", "26a3", "27a4", "27a3", "35a3", "37b3", "38a3", "54a3", "77b3", "158d3", "278b3", "326c3", "370c3", "485a3", "2771a3", "4385b3", "6070c3", "6886a3", "7094c3", "8027a3", "15598a3", "17603a3", "19870a3", "29818a3", "30518a3", "32741a3", "34474a3", "50626a2", "91270a2", "117622a3", "124973b3", "135734d2", "140635e2", "175589b2", "188386e2", "195085b2", "270670a2", "390150gy2", "428674c2"];
M2=["15a7", "15a3", "17a3", "17a2", "20a4", "20a2", "21a4", "24a4", "32a3", "32a4", "32a2", "33a2", "39a4", "40a3", "48a4", "52a2", "55a4", "57b2", "64a4", "73a2", "80a2", "80b4", "80b2", "89b2", "113a2", "116c2", "128b2", "128d2", "129b2", "161a2", "208c2", "212b2", "233a2", "291b3", "353a2", "464e2", "593b2", "681b2", "692a2", "848d2", "916a2", "1153a2", "1172a2", "1289a2", "1433a2", "1457a2", "1507b3", "1913b2", "2089b2", "2273a2", "2513a2", "2537e2", "2768c2", "2932a2", "3089a2", "3313b2", "3664f2", "4289a2", "4372a2", "4688b2", "4916a2", "5393a2", "5492b2", "5561a2", "5689a2", "6609a2", "8116a2", "8713a2", "8852b2", "9473a2", "11728d2", "13012a2", "15193a2", "16193a2", "16916a2", "16919a3", "17488a2", "17972b2", "18289a2", "19664g2", "19731b3", "21089a2", "21332b2", "21673a2", "21968e2", "23473a2", "25217a4", "26633a2", "27953a2", "28916a2", "29177a4", "30287a4", "30292a2", "30689a2", "31393a2", "32464a2", "35408e2", "36116a2", "37313a2", "37652a2", "38873a2", "42089a2", "42452a2", "45433a2", "47897a4", "51593a2", "52048a2", "52916a2", "53297b4", "54772a2", "59097a4", "59113a2", "60089a2", "62516a2", "65089a2", "67664a2", "69233a2", "70289a2", "71353a2", "71888e2", "72916a2", "75092a2", "75689a2", "80153a2", "85328d2", "86452a2", "91873a2", "93089a2", "96116a2", "99289a2", "104393a2", "106292b2", "106993b2", "111572a2", "112289a2", "114857a4", "115664a2", "117761a4", "119089a2", "120473a2", "121168e2", "124673a2", "125332a2", "133972a2", "134753a2", "140561a4", "140689a2", "142193a2", "144464a2", "149012a2", "150608j2", "156089a2", "161227a2", "162473a2", "164089a2", "164852a2", "165713a2", "169808a2", "170633a2", "171412c2", "184916a2", "188372a2", "191033a2", "199873b2", "211664a2", "214433a2", "216289a2", "217172b2", "219088b2", "220916b2", "221777a4", "225689a2", "227593a2", "233353a2", "235289a2", "236212b2", "237233a2", "240116a2", "244961a4", "247073a2", "250064a2", "256052a2", "260116a2", "267353a2", "277793a2", "280916a2", "284153a2", "285172a2", "286289a2", "288433a2", "291664a2", "300368a2", "302516a2", "305873a2", "306932a2", "307961a4", "310313a2", "319289a2", "321553a2", "329492a2", "330689a2", "332993a2", "335177a4", "343412a2", "345808a2", "367252a2", "368513a2", "375833a2", "377012b2", "378289a2", "380753a2", "384464d2", "391892a2", "400753a2", "401972a2", "403289a2", "408257a4", "416089a2", "423737a4", "425168b2", "444953a2", "446288a2", "466553a2", "481652a2", "494303a2"];

chk(M, k)=
{
  foreach(M,e,my(E=ellinit(e));if(ellmaninconstant(E,1)!=k,error(e)));
}
chk(M5,5);
chk(M4,4);
chk(M3,3);
chk(M2[1..100],2);

M = Set(concat([M2,M3,M4,M5]));
forell(e,1,10000,if(setsearch(M,e[1])==0, my(E=ellinit(e[2]));if(ellmaninconstant(E,1)!=1, error(e[1]))));
