|
%I #18 Oct 04 2023 05:38:52
%S 0,1,2,4,5,8,10,14,16,20,26,29,30,32,40,46,50,56,62,64,65,74,78,80,94,
%T 104,110,116,120,126,128,142,158,160,170,174,184,190,200,206,222,224,
%U 238,248,254,256,260,270,286,296,302,312,318,320,334,350,366
%N Numbers k for which no numbers w,x,y, all in {1,...,k}, satisfy w^2 + x^2 + y^2 = 2k.
%C For a guide to related sequences, see A211422.
%t t = Compile[{{n, _Integer}}, Module[{s = 0},
%t (Do[If[w^2 + x^2 + y^2 == 2 n, s = s + 1],
%t {w, 1, #}, {x, 1, #}, {y, 1, #}] &[n]; s)]];
%t Map[t[#] &, Range[0, 400]] (* A211649 *)
%t -1 + Flatten[Position[%, 0]] (* this sequence *)
%t (* _Peter J. C. Moses_, Apr 13 2012 *)
%Y Cf. A211422.
%K nonn
%O 0,3
%A _Clark Kimberling_, Apr 18 2012
|
