OFFSET
1,1
LINKS
MATHEMATICA
Select[Range[1200], Count[Union /@ PowersRepresentations[#, 3, 2], _?(And[FreeQ[#, 0], Length@ # == 3] &)] >= 8 &] (* Michael De Vlieger, Aug 20 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved