A191250 Fixed point of the morphism 0 -> 01, 1 -> 02, 2 -> 001.

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

Offset

1,4

Comments

A few 3-substitution sequences:

A191250: 0 -> 01, 1 -> 02, 2 -> 001

A191254: 0 -> 01, 1 -> 02, 2 -> 01

A191255: 0 -> 01, 1 -> 02, 2 -> 03, 3 -> 01

A191258: 0 -> 01, 1 -> 02, 2 -> 03, 3 -> 001

A191261: 0 -> 01, 1 -> 002, 2 -> 01

A191265: 0 -> 001, 1 -> 002, 2 -> 01

A191269: 0 -> 001, 1 -> 02, 2 -> 01

See also A189576 and A189628.

Links

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

Mathematica

t = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {0, 2}, 2 -> {0, 0, 1}}] &, {0}, 8]  (* A191250 *)
Flatten[Position[t, 0]]  (* A191251 *)
Flatten[Position[t, 1]]  (* A191252 *)
Flatten[Position[t, 2]]  (* A191253 *)

Crossrefs

Cf. A191251, A191252, A191253.

Sequence in context: A244315 A214303 A281274 * A107064 A113687 A071006

Adjacent sequences: A191247 A191248 A191249 * A191251 A191252 A191253

Keyword

nonn

Author

Clark Kimberling, May 28 2011

Status

approved