|
%I #4 May 24 2017 17:24:42
%S 2,4,8,10,20,22,26,28,44,46,54,56,58,60,64,66,76,78,82,84,100,102,110,
%T 112,120,122,130,132,134,136,140,142,152,154,162,164,166,168,172,174,
%U 178,180,184,186,196,198,202,204,220,222,230,232,234,236,240,242
%N Positions of 2 in A287263.
%H Clark Kimberling, <a href="/A287266/b287266.txt">Table of n, a(n) for n = 1..7807</a>
%t s = Nest[Flatten[# /. {0 -> {1, 1}, 1 -> {0, 2}, 2 -> 0}] &, {0}, 10] (* A287263 *)
%t Flatten[Position[s, 0]] (* A287264 *)
%t Flatten[Position[s, 1]] (* A287265 *)
%t Flatten[Position[s, 2]] (* A287266 *)
%Y Cf. A287263, A287264, A287265.
%K nonn,easy
%O 1,1
%A _Clark Kimberling_, May 24 2017
|
