|
%I #18 Oct 26 2023 01:19:12
%S 1,2,3,4,6,7,8,9,11,12,15,16,18,19,22,23,24,27,28,31,32,33,36,39,43,
%T 44,47,48,51,55,57,60,63,64,67,71,72,76,79,87,88,92,95,96,99,102,103,
%U 108,111,112
%N Numbers that are not the sum of 3 distinct squares.
%H T. D. Noe, <a href="/A004436/b004436.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 r[n_] := Reduce[0 <= x < y < z && x^2 + y^2 + z^2 == n, {x, y, z}, Integers]; ok[n_] := r[n] == False; Select[ Range[112], ok] (* _Jean-François Alcover_, Dec 05 2011 *)
%Y Cf. A001974 (complement).
%K nonn
%O 1,2
%A _N. J. A. Sloane_
|
