|
%I #16 Aug 05 2021 07:31:29
%S 1105,1625,1885,2125,2210,2405,2465,2665,3145,3250,3445,3485,3625,
%T 3770,3965,4225,4250,4420,4505,4625,4745,4810,4930,5125,5185,5330,
%U 5365,5525,5785,5945,6205,6290,6305,6409,6500,6565,6625,6890,6970,7085,7225,7250
%N Numbers that are the sum of 2 nonzero squares in 4 or more ways.
%H Vaclav Kotesovec, <a href="/A025295/b025295.txt">Table of n, a(n) for n = 1..1500</a>
%H <a href="/index/Su#ssq">Index entries for sequences related to sums of squares</a>
%t 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 *)
%Y Cf. A023051, A025287, A025294, A025296, A025332.
%K nonn
%O 1,1
%A _David W. Wilson_
|
