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,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.

Sequence in context: A033623 A094398 A277728 * A290652 A288313 A213020

Adjacent sequences: A287160 A287161 A287162 * A287164 A287165 A287166

Keyword

nonn,easy

Author

Clark Kimberling, May 22 2017

Status

approved