|
%I #4 May 24 2017 20:54:53
%S 1,2,7,8,18,19,21,22,28,29,31,32,33,34,39,40,50,51,53,54,60,61,63,64,
%T 70,71,73,74,80,81,83,84,86,87,89,90,91,92,97,98,104,105,107,108,109,
%U 110,115,116,126,127,129,130,136,137,139,140,142,143,145,146
%N Positions of 1 in A287341.
%H Clark Kimberling, <a href="/A287343/b287343.txt">Table of n, a(n) for n = 1..10000</a>
%t s = Nest[Flatten[# /. {0 -> {1, 1}, 1 -> {2, 0}, 2 -> 0}] &, {0}, 10] (* A287341 *)
%t Flatten[Position[s, 0]] (* A287342 *)
%t Flatten[Position[s, 1]] (* A287343 *)
%t Flatten[Position[s, 2]] (* A287344 *)
%Y Cf. A287341, A287342, A287344.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, May 24 2017
|
