%I A101661
%S A101661 0,1,0,2,0,1,2,0,0,1,0,2,2,0,0,1,0,1,0,2,0,1,2,0,2,0,0,1,0,1,0,2,0,1,0,
%T A101661 2,0,1,2,0,0,1,0,2,2,0,0,1,2,0,0,1,0,1,0,2,0,1,0,2,0,1,2,0,0,1,0,2,0,1,
%U A101661 2,0,0,1,0,2,2,0,0,1,0,1,0,2,0,1,2,0,2,0,0,1,0,1,0,2,2,0,0,1,0,1,0,2,0
%N A101661 Fixed point of morphism 0 -> 01, 1 -> 02, 2 -> 20.
%F A101661 a(2n) = 2[a(n)==2], a(2n+1) = (a(n)+1) mod 3.
%t A101661 Nest[ Function[ l, {Flatten[(l /. {0 -> {0, 1}, 1 -> {0, 2}, 2 -> {2, 
               0}})]}], {0}, 7] (from Robert G. Wilson v 28 2005)
%Y A101661 Sequence in context: A102564 A077762 A085496 this_sequence A079644 A072705 
               A072574
%Y A101661 Adjacent sequences: A101658 A101659 A101660 this_sequence A101662 A101663 
               A101664
%K A101661 nonn,easy
%O A101661 0,4
%A A101661 Ralf Stephan, Dec 11 2004