%I #16 Dec 08 2013 06:29:48
%S 138125,235625,276250,300625,308125,333125,393125,430625,435625,
%T 471250,495625,552500,563125,593125,601250,616250,648125,666250,
%U 670625,723125,743125,775625,786250,788125,820625,861250,871250,885625,918125,942500
%N Numbers that are the sum of 2 distinct nonzero squares in exactly 10 ways.
%H Donovan Johnson, <a href="/A025311/b025311.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 = 942500; 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, 10]] (* _T. D. Noe_, Apr 07 2011 *)
%Y Cf. A025293.
%K nonn
%O 1,1
%A _David W. Wilson_
|