|
%I #15 Dec 08 2013 06:29:18
%S 5525,9425,11050,12025,12325,13325,14365,15725,17225,17425,18785,
%T 18850,19825,21125,22100,22525,23725,24050,24505,24650,25925,26650,
%U 26825,28730,28925,29725,31025,31265,31450,31525,32825,34450,34645,34850,35425,36125
%N Numbers that are the sum of 2 nonzero squares in exactly 6 ways.
%H Donovan Johnson, <a href="/A025289/b025289.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 = 36125; 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, 6]] (* _T. D. Noe_, Apr 07 2011 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|
