|
%I #15 Feb 04 2022 00:44:08
%S 14,21,26,29,30,35,38,39,41,42,45,46,49,50,51,53,54,56,57,59,61,62,63,
%T 65,66,69,70,71,74,75,77,78,79,81,83,84,85,86,87,89,90,91,93,94,95,98,
%U 99,101,102,104,105,106,107,109,110,111,113,114,115,116,117
%N Numbers that are the sum of 4 distinct squares: of form w^2 + x^2 + y^2 + z^2 with 0 <= w < x < y < z.
%H T. D. Noe, <a href="/A001944/b001944.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>
%e 14 = 0^2 + 1^2 + 2^2 + 3^2.
%t nn = 20; Select[Union[Flatten[Table[a^2 + b^2 + c^2 + d^2, {a, 0, nn}, {b, a + 1, nn}, {c, b + 1, nn}, {d, c + 1, nn}]]], # <= nn^2 &] (* _T. D. Noe_, Aug 17 2012 *)
%Y Cf. A001974, A001983, A001948, A001995.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_
|
