%I #4 May 21 2017 21:29:42
%S 1,5,7,8,11,12,14,18,19,21,24,28,30,31,33,36,40,41,45,47,48,51,52,54,
%T 57,61,62,66,68,69,71,75,77,78,81,82,84,88,89,91,94,98,99,103,105,106,
%U 108,112,114,115,118,119,121,124,128,130,131,134,135,137,141
%N Positions of 1 in A287066.
%H Clark Kimberling, <a href="/A287068/b287068.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, A287069.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, May 21 2017
|