A287003 Positions of 0 in A287002.

1, 4, 6, 9, 10, 13, 15, 17, 20, 22, 25, 26, 29, 30, 33, 35, 38, 39, 42, 44, 46, 49, 51, 53, 56, 58, 61, 62, 65, 67, 69, 72, 74, 77, 78, 81, 82, 85, 87, 90, 91, 94, 95, 98, 100, 103, 104, 107, 109, 111, 114, 116, 119, 120, 123, 124, 127, 129, 132, 133, 136

Offset

1,2

Links

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

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {2, 0}, 2 -> 1}] &, {0}, 10] (* A287002 *)
Flatten[Position[s, 0]]  (* A287003 *)
Flatten[Position[s, 1]]  (* A287004 *)
Flatten[Position[s, 2]]  (* A287081 *)

Crossrefs

Cf. A287002, A287004, A287081.

Sequence in context: A171136 A189167 A283794 * A214068 A330182 A330186

Adjacent sequences: A287000 A287001 A287002 * A287004 A287005 A287006

Keyword

nonn,easy

Author

Clark Kimberling, May 21 2017

Status

approved