A006339

[Eric W. Weisstein]

On Mon, 16 Jan 2006, David Wilson wrote:

> Someone has asked me how to compute A006339(n), and I've forgotten how.

http://www.research.att.com/~njas/sequences/?q=A006339

You might be able to do a little better, but this will do the trick:

<< NumberTheory`NumberTheoryFunctions`
#[[1, -1]] & /@ Split[
     Sort[MapIndexed[{#1, #2[[1]]} &,
        SumOfSquaresR[2, Range[10^4]^2]]], First[#1] == First[#2] &]
{1, 5, 25, 125, 65, 3125, 325, 1625, 4225, 1105, 5525}

Cheers,
-Eric