login
Positions of 2 in A287240.
4

%I #4 May 24 2017 10:00:27

%S 1,5,9,14,18,22,27,31,38,43,47,51,56,60,64,69,73,80,85,89,93,98,102,

%T 109,116,121,125,132,137,141,145,150,154,158,163,167,174,179,183,187,

%U 192,196,200,205,209,216,221,225,229,234,238,245,252,257,261,268,273

%N Positions of 2 in A287240.

%H Clark Kimberling, <a href="/A287243/b287243.txt">Table of n, a(n) for n = 1..10000</a>

%t s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {2, 0}, 2 -> 1}] &, {1}, 11] (* A287240 *)

%t Flatten[Position[s, 0]] (* A287241 *)

%t Flatten[Position[s, 1]] (* A287242 *)

%t Flatten[Position[s, 2]] (* A287243 *)

%Y Cf. A287240, A287241, A287242.

%K nonn,easy

%O 1,2

%A _Clark Kimberling_, May 24 2017