"Source: Text/Geometry/CrvEllQNF.text";
"Line: 221";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/CrvEllQNF.text, line: 221
// Example: H133E2 ()
print "Example: H133E2";
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);
