A287268 - OEIS

%I #4 May 24 2017 17:24:55

%S 3,6,7,9,13,16,17,19,21,23,27,29,35,38,39,41,45,48,49,51,53,55,59,61,

%T 65,67,71,73,79,82,83,85,89,91,97,100,103,106,107,109,113,116,117,119,

%U 121,123,127,129,135,138,139,141,145,148,149,151,153,155,159

%N Positions of 0 in A287267.

%H Clark Kimberling, <a href="/A287268/b287268.txt">Table of n, a(n) for n = 1..10000</a>

%t s = Nest[Flatten[# /. {0 -> {1, 1}, 1 -> {0, 2}, 2 -> 0}] &, {0}, 11] (* A287267 *)

%t Flatten[Position[s, 0]] (* A287268 *)

%t Flatten[Position[s, 1]] (* A287269 *)

%t Flatten[Position[s, 2]] (* A287270 *)

%Y Cf. A287267, A287269, A287270.

%K nonn,easy

%O 1,1

%A _Clark Kimberling_, May 24 2017