Search: id:A101661 Results 1-1 of 1 results found. %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 Search completed in 0.001 seconds