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,1

Links

Robert Price, Table of n, a(n) for n = 1..507

Index entries for sequences related to sums of squares

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 *)

Crossrefs

Cf. A025289, A025296, A025298, A025334.

Sequence in context: A025296 A025315 A097103 * A025316 A025289 A025307

Adjacent sequences: A025294 A025295 A025296 * A025298 A025299 A025300

Keyword

nonn

Author

David W. Wilson

Status

approved