OFFSET
1,1
LINKS
Robert Price, Table of n, a(n) for n = 1..78680
MATHEMATICA
Select[Range[761], Length[PowersRepresentations[#, 3, 2]] >= 7 &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert Price, Nov 03 2017
EXTENSIONS
Updated Mathematica program to Version 11. by Robert Price, Nov 01 2019
STATUS
approved