A182195 Numbers k for which no numbers w,x,y, all in {1,...,k}, satisfy w^2 + x^2 + y^2 = 2k.

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.

Links

Table of n, a(n) for n=0..56.

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

Adjacent sequences: A182192 A182193 A182194 * A182196 A182197 A182198

Keyword

nonn

Author

Clark Kimberling, Apr 18 2012

Status

approved