|
%I #15 Dec 08 2013 06:29:57
%S 105625,180625,203125,211250,265625,361250,406250,422500,453125,
%T 525625,531250,578125,640625,714025,722500,812500,828125,845000,
%U 855625,906250,950625,953125,1050625,1051250,1062500,1140625,1156250,1281250,1390625
%N Numbers that are the sum of 2 distinct nonzero squares in exactly 7 ways.
%H Donovan Johnson, <a href="/A025308/b025308.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 = 1390625; 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, 7]] (* _T. D. Noe_, Apr 07 2011 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|
