login
Positions of 2 in A287267.
4

%I #7 Jun 04 2020 06:41:16

%S 8,10,18,20,22,24,28,30,40,42,50,52,54,56,60,62,66,68,72,74,84,86,90,

%T 92,108,110,118,120,122,124,128,130,140,142,150,152,154,156,160,162,

%U 166,168,172,174,184,186,190,192,202,204,208,210,220,222,226,228,244

%N Positions of 2 in A287267.

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

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

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

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

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

%Y Cf. A287267, A287268, A287269.

%K nonn,easy

%O 1,1

%A _Clark Kimberling_, May 24 2017