A287163 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

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

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 *)

CROSSREFS

Cf. A287160, A287161, A287162.