STATUS
editing
approved
The OEIS is supported by the many generous donors to the OEIS Foundation.
editing
approved
editing
approved
Vaclav Kotesovec, <a href="/A025295/b025295.txt">Table of n, a(n) for n = 1..1500</a>
approved
editing
nn = 7250; 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, _?(# >= 4 &)]] (* _T. D. Noe, _, Apr 07 2011 *)
_David W. Wilson (davidwwilson(AT)comcast.net)_
<a href="/Sindx_index/Su.html#ssq">Index entries for sequences related to sums of squares</a>
proposed
approved
nn = 7250; 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, _?(# >= 4 &)]] (* T. D. Noe, Apr 07 2011 *)
approved
proposed
<a href="/Sindx_Su.html#ssq">Index entries for sequences related to sums of squares</a>
nonn,new
nonn