|
%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
|
