login
A101665
Fixed point of morphism 0 -> 01, 1 -> 12, 2 -> 02.
0
0, 1, 1, 2, 1, 2, 0, 2, 1, 2, 0, 2, 0, 1, 0, 2, 1, 2, 0, 2, 0, 1, 0, 2, 0, 1, 1, 2, 0, 1, 0, 2, 1, 2, 0, 2, 0, 1, 0, 2, 0, 1, 1, 2, 0, 1, 0, 2, 0, 1, 1, 2, 1, 2, 0, 2, 0, 1, 1, 2, 0, 1, 0, 2, 1, 2, 0, 2, 0, 1, 0, 2, 0, 1, 1, 2, 0, 1, 0, 2, 0, 1, 1, 2, 1, 2, 0, 2, 0, 1, 1, 2, 0, 1, 0, 2, 0, 1, 1, 2, 1, 2, 0, 2, 1
OFFSET
0,4
FORMULA
a(2n) = [a(n)==1], a(2n+1) = 1 + [a(n)>0].
MATHEMATICA
Nest[ Function[ l, {Flatten[(l /. {0 -> {0, 1}, 1 -> {1, 2}, 2 -> {0, 2}}) ]}], {0}, 7] (* Robert G. Wilson v, Mar 03 2005 *)
CROSSREFS
Sequence in context: A250213 A033794 A218856 * A229951 A165034 A193347
KEYWORD
nonn,easy
AUTHOR
Ralf Stephan, Dec 11 2004
STATUS
approved