A025295 Numbers that are the sum of 2 nonzero squares in 4 or more ways.

1105, 1625, 1885, 2125, 2210, 2405, 2465, 2665, 3145, 3250, 3445, 3485, 3625, 3770, 3965, 4225, 4250, 4420, 4505, 4625, 4745, 4810, 4930, 5125, 5185, 5330, 5365, 5525, 5785, 5945, 6205, 6290, 6305, 6409, 6500, 6565, 6625, 6890, 6970, 7085, 7225, 7250

Offset

1,1

Links

Vaclav Kotesovec, Table of n, a(n) for n = 1..1500

Index entries for sequences related to sums of squares

Mathematica

nn = 7250; 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, _?(# >= 4 &)]] (* T. D. Noe, Apr 07 2011 *)

Crossrefs

Cf. A023051, A025287, A025294, A025296, A025332.

Sequence in context: A214607 A321870 A257759 * A025314 A025287 A025305

Adjacent sequences: A025292 A025293 A025294 * A025296 A025297 A025298

Keyword

nonn

Author

David W. Wilson

Status

approved