A025297 Numbers that are the sum of 2 nonzero squares in 6 or more ways.

5525, 9425, 11050, 12025, 12325, 13325, 14365, 15725, 17225, 17425, 18785, 18850, 19825, 21125, 22100, 22525, 23725, 24050, 24505, 24650, 25925, 26650, 26825, 27625, 28730, 28925, 29725, 31025, 31265, 31450, 31525, 32045, 32825, 34450, 34645, 34850

Offset: 1

Author

David W. Wilson

Keywords

• nonn

Links

• Robert Price, Table of n, a(n) for n = 1..507
• Index entries for sequences related to sums of squares

Crossrefs

Cf. A025289, A025296, A025298, A025334.

Programs

Mathematica

nn = 34850; t = Table[0, {nn}]; lim = Floor[Sqrt[nn - 1]]; Do[num = i^2 + j^2; If[num <= nn, t[[num]]++], {i, lim}, {j, i}]; Flatten[Position[t, ?(# >= 6 &)]] (* _T. D. Noe, Apr 07 2011 *)