OFFSET
1,1
LINKS
MATHEMATICA
Select[Range[10000], Length[PowersRepresentations[#, 2, 2]] == 5 &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert Price, Nov 07 2017
EXTENSIONS
Updated Mathematica program to Version 11. by Robert Price, Nov 01 2019
STATUS
approved
