|
%I #14 Aug 05 2021 07:31:54
%S 71825,93925,122525,138125,143650,156325,160225,173225,187850,204425,
%T 209525,223925,226525,235625,244205,245050,257725,267325,273325,
%U 276250,287300,292825,296225,300625,308125,308425,312650,320450,333125,337025
%N Numbers that are the sum of 2 nonzero squares in 9 or more ways.
%H <a href="/index/Su#ssq">Index entries for sequences related to sums of squares</a>
%t nn = 337025; 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, _?(# >= 9 &)]] (* _T. D. Noe_, Apr 07 2011 *)
%Y Cf. A025292, A025299, A025301, A025337.
%K nonn
%O 1,1
%A _David W. Wilson_
|
