OFFSET
1,1
MATHEMATICA
Select[Range[1229], Length[PowersRepresentations[#, 3, 2]] >= 10 &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert Price, Nov 07 2017
EXTENSIONS
Updated Mathematica program to Version 11, and corrected errors in Name. by Robert Price, Nov 01 2019
STATUS
approved