OFFSET
1,1
COMMENTS
Starts to differ from A025291 at a(95). - R. J. Mathar, Jul 06 2025
LINKS
MATHEMATICA
nn = 118625; t = Table[0, {nn}]; lim = Floor[Sqrt[nn - 1]]; Do[num = i^2 + j^2; If[num <= nn, t[[num]]++], {i, lim}, {j, i - 1}]; Flatten[Position[t, 8]] (* T. D. Noe, Apr 07 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved
