"Source: Text/Geometry/CrvEll.text";
"Line: 358";
"Date: Wed Sep 19 23:00:01 2018";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/CrvEll.text, line: 358
// Example: H131E4 ()
print "Example: H131E4";
ei := GetEchoInput();
SetEchoInput(true);
S := [ p : p in [1..20] | IsPrime(p) ];
for p in S do
    ok, E := IsEllipticCurve([GF(p) | 1, 1, 0, -3, -17 ]);
    if ok then print E; end if;
end for;
SetEchoInput(ei);
