%I #15 Feb 04 2022 00:38:11
%S 30,39,46,50,51,54,55,57,62,63,65,66,70,71,74,75,78,79,81,82,84,85,86,
%T 87,88,90,91,93,94,95,98,99,100,102,103,105,106,107,109,110,111,113,
%U 114,115,116,117,118,119,120,121,122,123,125,126,127,129,130,131
%N Numbers that are the sum of 5 distinct squares: of form v^2 + w^2 + x^2 + y^2 + z^2 with 0 <= v < w < x < y < z.
%H T. D. Noe, <a href="/A001995/b001995.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 30 = 0^2 + 1^1 + 2^2 + 3^2 + 4^2.
%t nn = 15; Select[Union[Flatten[Table[a^2 + b^2 + c^2 + d^2 + e^2, {a, 0, nn}, {b, a + 1, nn}, {c, b + 1, nn}, {d, c + 1, nn}, {e, d + 1, nn}]]], # <= nn^2 &] (* _T. D. Noe_, Aug 17 2012 *)
%Y Cf. A001944.
%K nonn
%O 1,1
%A _N. J. A. Sloane_
|