|
%I
%S 71825,93925,122525,143650,156325,173225,187850,209525,223925,244205,
%T 245050,257725,267325,273325,287300,296225,308425,312650,346450,
%U 357425,375700,376025,382925,409825,419050,426725,440725,444925,447850,460525
%N Numbers that are the sum of 2 distinct nonzero squares in exactly 9 ways.
%H Donovan Johnson, <a href="/A025310/b025310.txt">Table of n, a(n) for n = 1..1000</a>
%H <a href="/index/Su#ssq">Index entries for sequences related to sums of squares</a>
%t nn = 460525; t = Table[0, {nn}]; lim = Floor[Sqrt[nn - 1]]; Do[num = i^2 + j^2; If[num <= nn, t[[num]]++], {i, lim}, {j, i - 1}]; Flatten[Position[t, 9]] (* _T. D. Noe_, Apr 07 2011 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|
