OFFSET
1,1
LINKS
MATHEMATICA
nn = 7345; 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 *)
nz4Q[n_]:=Count[IntegerPartitions[n, {2}], _?(FreeQ[#, 0]&&AllTrue[Sqrt[#], IntegerQ]&)]==4; Select[Range[7500], nz4Q] (* Harvey P. Dale, Jul 23 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved