"Source: Text/Geometry/CrvEllQNF.text";
"Line: 221";
"Date: Fri Apr 14 10:35:14 2023";
"Main: Thu May 25 10:02:38 2023";
// original file: Text/Geometry/CrvEllQNF.text, line: 221
// Example: H130E2 ()
print "Example: H130E2";
ei := GetEchoInput();
SetEchoInput(true);
S := [ ];
for n := 2 to 100 do
   E := EllipticCurve([n, 0]);
   for p in BadPrimes(E) do
      if KodairaSymbol(E, p) eq KodairaSymbol("I0*") then
         Append(~S, <p, n>);
      end if;
   end for;
end for;
S;
SetEchoInput(ei);
