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