A287069 - OEIS

%I #10 Oct 08 2017 12:44:38

%S 2,9,13,15,20,22,25,32,34,37,42,49,53,55,58,63,70,72,79,83,85,90,92,

%T 95,100,107,109,116,120,122,125,132,136,138,143,145,148,155,157,160,

%U 165,172,174,181,185,187,190,197,201,203,208,210,213,218,225,229,231

%N Positions of 2 in A287066.

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

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

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

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

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

%Y Cf. A287066, A287067, A287068.

%K nonn,easy

%O 1,1

%A _Clark Kimberling_, May 21 2017