|
%I #14 Aug 05 2021 07:31:33
%S 5525,8125,8450,9425,10625,11050,12025,12325,13325,14365,14450,15725,
%T 16250,17225,17425,18125,18785,18850,19825,21125,21250,22100,22525,
%U 23125,23725,24050,24505,24650,25625,25925,26650,26825,27625,28730,28925,29725
%N Numbers that are the sum of 2 nonzero squares in 5 or more ways.
%H <a href="/index/Su#ssq">Index entries for sequences related to sums of squares</a>
%t nn = 30000; 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, _?(# >= 5 &)]] (* _T. D. Noe_, Apr 07 2011 *)
%Y Cf. A025288, A025295, A025297, A025333, A051167.
%K nonn
%O 1,1
%A _David W. Wilson_
|
