A191265 Fixed point of the morphism 0 -> 001, 1 -> 002, 2 -> 01.

0, 0, 1, 0, 0, 1, 0, 0, 2, 0, 0, 1, 0, 0, 1, 0, 0, 2, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 2, 0, 0, 1, 0, 0, 1, 0, 0, 2, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 2, 0, 0, 1, 0, 0, 1, 0, 0, 2, 0, 0, 1, 0, 0, 2, 0, 0, 1, 0, 0, 1, 0, 0, 2, 0, 0, 1, 0, 0, 1, 0, 0, 2, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 2, 0, 0, 1, 0, 0, 1, 0, 0, 2, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 1, 0

Offset

1,9

Comments

See A191265.

Links

Table of n, a(n) for n=1..132.

Mathematica

t = Nest[Flatten[# /. {0 -> {0, 0, 1}, 1 -> {0, 0, 2}, 2 -> {0, 1}}] &, {0}, 7] (* A191265 *)
Flatten[Position[t, 0]]  (* A191266 *)
Flatten[Position[t, 1]]  (* A191267 *)
Flatten[Position[t, 2]]  (* A191268 *)

Crossrefs

Cf. A191265, A191250.

Sequence in context: A015692 A016232 A007949 * A320003 A291749 A370599

Adjacent sequences: A191262 A191263 A191264 * A191266 A191267 A191268

Keyword

nonn

Author

Clark Kimberling, May 28 2011

Status

approved