(Translated by https://www.hiragana.jp/)
A101614 - OEIS
login
A101614
Fixed point of morphism 0 -> 01, 1 -> 02, 2 -> 10.
0
0, 1, 0, 2, 0, 1, 1, 0, 0, 1, 0, 2, 0, 2, 0, 1, 0, 1, 0, 2, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 0, 2, 0, 1, 0, 2, 0, 1, 1, 0, 0, 1, 0, 2, 0, 2, 0, 1, 0, 1, 0, 2, 0, 2, 0, 1, 0, 1, 0, 2, 0, 1, 1, 0, 0, 1, 0, 2, 0, 1, 1, 0, 0, 1, 0, 2, 0, 2, 0, 1, 0, 1, 0, 2, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 0, 2, 0, 1, 0, 2, 0, 1, 1, 0, 0
OFFSET
0,4
FORMULA
a(2n) = [a(n)==2], a(2n+1) = (a(n)+1) mod 3.
MATHEMATICA
Nest[ Function[ l, {Flatten[(l /. {0 -> {0, 1}, 1 -> {0, 2}, 2 -> {1, 0}})]}], {0}, 7] (* Robert G. Wilson v, Feb 26 2005 *)
CROSSREFS
Sequence in context: A306437 A343746 A227990 * A051659 A085861 A326197
KEYWORD
nonn,easy
AUTHOR
Ralf Stephan, Dec 11 2004
STATUS
approved