A287163 Positions of 2 in A287160.

2, 4, 8, 15, 17, 24, 29, 32, 34, 38, 45, 50, 53, 55, 62, 65, 67, 72, 74, 78, 85, 87, 94, 99, 102, 104, 111, 114, 116, 121, 123, 127, 134, 139, 142, 144, 149, 151, 155, 162, 165, 167, 171, 178, 180, 187, 192, 195, 197, 201, 208, 213, 216, 218, 225, 228, 230

Offset: 1

Author

Clark Kimberling, May 22 2017

Keywords

• nonn
• easy

Links

• Clark Kimberling, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A287160, A287161, A287162.

Programs

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {2, 1}, 2 -> 0}] &, {0}, 9] (* A287160 *)
Flatten[Position[s, 0]] (* A287161 *)
Flatten[Position[s, 1]] (* A287162 *)
Flatten[Position[s, 2]] (* A287163 *)