A101664 Fixed point of morphism 0 -> 01, 1 -> 12, 2 -> 00.

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

Offset

0,4

Links

Table of n, a(n) for n=0..104.

Index entries for sequences that are fixed points of mappings

Formula

a(2n) = [a(n)==1], a(2n+1) = (a(n)+1) mod 3.

Mathematica

Nest[ Function[ l, {Flatten[(l /. {0 -> {0, 1}, 1 -> {1, 2}, 2 -> {0, 0}}) ]}], {0}, 7] (* Robert G. Wilson v, Mar 03 2005 *)

Crossrefs

Sequence in context: A030203 A208978 A333451 * A091952 A108803 A348920

Adjacent sequences: A101661 A101662 A101663 * A101665 A101666 A101667

Keyword

nonn,easy

Author

Ralf Stephan, Dec 11 2004

Status

approved