"Source: Text/Aggregates/Set.text";
"Line: 1180";
"Date: Thu Sep 25 14:47:47 2025";
"Main: Fri Sep 26 14:29:19 2025";
// original file: Text/Aggregates/Set.text, line: 1180
// Example: H10E9 ()
print "Example: H10E9";
ei := GetEchoInput();
SetEchoInput(true);
cubes := { Integers() | x^3 : x in [1..1000] };
cc := cubes;
min := { };
while not IsEmpty(cc) do
   ExtractRep(~cc, ~a);
   for b in cc do
      if a+b+1 in cubes then
         min join:= { <a, b> };
      end if;
   end for;
end while;
{ < Iroot(x[1], 3), Iroot(x[2], 3) > : x in min };
SetEchoInput(ei);
