|
%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
|
