%I A106590
%S A106590 1,2,3,1,2,3,1,2,3,2,3,3,3,1,2,3,2,3,3,3,1,2,3,2,3,3,3,1,2,3,3,3,3,1,2,
%T A106590 3,1,2,3,1,2,3,2,3,3,3,1,2,3,1,2,3,1,2,3,1,2,3,2,3,3,3,1,2,3,2,3,3,3,1,
%U A106590 2,3,2,3,3,3,1,2,3,3,3,3,1,2,3,1,2,3,1,2,3,2,3,3,3,1,2,3,1,2,3,1,2,3,1
%N A106590 Trajectory of 1 under the morphism 1->{2}, 2->{3,3,3}, 3-{1,2,3}.
%C A106590 Three-symbol substitution based on Rauzy: adding two 3's to second substitution: 
               characteristic polynomial x^3-x^2-3*x-2.
%D A106590 Curtis McMullen, Prym varieties and Teichmuller curves.
%t A106590 s[1] = {2}; s[2] = {3, 3, 3}; s[3] = {1, 2, 3}; t[a_] := Flatten[s /@ 
               a]; p[0] = {1}; p[1] = t[p[0]]; p[n_] := t[p[n - 1]] aa = p[6]
%Y A106590 Sequence in context: A117373 A132677 A010882 this_sequence A054073 A059832 
               A105316
%Y A106590 Adjacent sequences: A106587 A106588 A106589 this_sequence A106591 A106592 
               A106593
%K A106590 nonn
%O A106590 0,2
%A A106590 Roger L. Bagula (rlbagulatftn(AT)yahoo.com), May 10 2005