%I #9 Aug 09 2017 22:13:33
%S 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,
%T 2,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,
%U 3,1,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 Trajectory of 1 under the morphism 1->{2}, 2->{3,3,3}, 3->{1,2,3}.
%C Three-symbol substitution based on Rauzy: adding two 3's to second substitution: characteristic polynomial x^3-x^2-3*x-2.
%H Curtis McMullen, <a href="http://www.math.harvard.edu/~ctm/papers/home/text/papers/prym/prym.pdf">Prym varieties and Teichmuller curves</a>, Duke Math. J., Volume 133, Number 3 (2006), 569-590. doi:10.1215/S0012-7094-06-13335-5.
%H <a href="/index/Fi#FIXEDPOINTS">Index entries for sequences that are fixed points of mappings</a>
%t 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]
%K nonn
%O 0,2
%A _Roger L. Bagula_, May 10 2005