login
A182195
Numbers k for which no numbers w,x,y, all in {1,...,k}, satisfy w^2 + x^2 + y^2 = 2k.
1
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, 104, 110, 116, 120, 126, 128, 142, 158, 160, 170, 174, 184, 190, 200, 206, 222, 224, 238, 248, 254, 256, 260, 270, 286, 296, 302, 312, 318, 320, 334, 350, 366
OFFSET
0,3
COMMENTS
For a guide to related sequences, see A211422.
MATHEMATICA
t = Compile[{{n, _Integer}}, Module[{s = 0},
(Do[If[w^2 + x^2 + y^2 == 2 n, s = s + 1],
{w, 1, #}, {x, 1, #}, {y, 1, #}] &[n]; s)]];
Map[t[#] &, Range[0, 400]] (* A211649 *)
-1 + Flatten[Position[%, 0]] (* this sequence *)
(* Peter J. C. Moses, Apr 13 2012 *)
CROSSREFS
Cf. A211422.
Sequence in context: A190809 A067941 A259711 * A092265 A262937 A249508
KEYWORD
nonn
AUTHOR
Clark Kimberling, Apr 18 2012
STATUS
approved