A287159 Positions of 2 in A287156.

1, 8, 13, 16, 18, 25, 28, 30, 35, 37, 41, 48, 53, 56, 58, 63, 65, 69, 76, 79, 81, 85, 92, 94, 101, 106, 109, 111, 118, 121, 123, 128, 130, 134, 141, 144, 146, 150, 157, 159, 166, 171, 174, 176, 181, 183, 187, 194, 196, 203, 208, 211, 213, 217, 224, 229, 232

Offset

1,2

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}, 11] (* A287156 *)
Flatten[Position[s, 0]] (* A287157 *)
Flatten[Position[s, 1]] (* A287158 *)
Flatten[Position[s, 2]] (* A287159 *)

Crossrefs

Cf. A287108, A287156, A287157, A287158.

Sequence in context: A080361 A054295 A328241 * A272486 A057486 A188198

Adjacent sequences: A287156 A287157 A287158 * A287160 A287161 A287162

Keyword

nonn,easy

Author

Clark Kimberling, May 22 2017

Status

approved