"Source: Text/Ring/FldQuad.text";
"Line: 703";
"Date: Fri Sep 26 12:10:11 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Ring/FldQuad.text, line: 703
// Example: H37E6 ()
print "Example: H37E6";
ei := GetEchoInput();
SetEchoInput(true);
s := { };
Q := QuadraticField(-1);
M := RingOfIntegers(Q);
for p := 65 to 1000 by 4 do
   if IsPrime(p) then
      _, x := NormEquation(Q, p);
      if BiquadraticResidueSymbol(2, Primary(M!x[1])) eq 1 then
         Include(~s, p);
      end if;
   end if;
end for;
s;
S := sub<MaximalOrder(Q) | 8>;
t := { };
for p := 65 to 1000 by 4 do
   if IsPrime(p) then
      if NormEquation(S, p) then
          Include(~t, p);
      end if;
   end if;
end for;
t;
SetEchoInput(ei);
