|
%I #8 Jun 04 2020 06:41:10
%S 4,7,9,14,16,20,27,30,32,36,43,45,52,57,60,62,67,69,73,80,82,89,94,97,
%T 99,103,110,115,118,120,127,130,132,137,139,143,150,153,155,159,166,
%U 168,175,180,183,185,189,196,201,204,206,213,216,218,223,225,229
%N Positions of 2 in A287108.
%H Clark Kimberling, <a href="/A287111/b287111.txt">Table of n, a(n) for n = 1..10000</a>
%t s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {2, 1}, 2 -> 0}] &, {0}, 10] (* A287108 *)
%t Flatten[Position[s, 0]] (* A287109 *)
%t Flatten[Position[s, 1]] (* A287110 *)
%t Flatten[Position[s, 2]] (* A287111 *)
%Y Cf. A287108, A287109, A287110.
%K nonn,easy
%O 1,1
%A _Clark Kimberling_, May 22 2017
|
