"Source: Text/Geometry/GrdRng.text";
"Line: 1950";
"Date: Thu Sep 25 14:47:45 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Geometry/GrdRng.text, line: 1950
// Example: H128E7 ()
print "Example: H128E7";
ei := GetEchoInput();
SetEchoInput(true);
r3<x,y,z> := PolynomialRing(Integers(),3);
f6 := x*y*z*(x+y+z)*(x+2*y+5*z)*(3*x+2*y-7*z);
wf1,wf2 := WeilPolynomialOfDegree2K3Surface(PolynomialRing(GF(61),3)!f6);
wf1;
wf2;
PolynomialToPowerSums(wf1);
r3<x,y,z> := PolynomialRing(Integers(),3);
NonOrdinaryPrimes(x^6+y^6+z^6 + 3*(x*y*z)^2,1000); 
NonOrdinaryPrimes(x^6+y^6+z^6 - 3*(x*y*z)^2,1000);  
SetEchoInput(ei);
