A106590 Trajectory of 1 under the morphism 1->{2}, 2->{3,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, 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, 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, 3, 1, 2, 3, 1, 2, 3, 2, 3, 3, 3, 1, 2, 3, 1, 2, 3, 1, 2, 3, 1

Offset

0,2

Comments

Three-symbol substitution based on Rauzy: adding two 3's to second substitution: characteristic polynomial x^3-x^2-3*x-2.

Links

Table of n, a(n) for n=0..104.

Curtis McMullen, Prym varieties and Teichmuller curves, Duke Math. J., Volume 133, Number 3 (2006), 569-590. doi:10.1215/S0012-7094-06-13335-5.

Index entries for sequences that are fixed points of mappings

Mathematica

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]

Crossrefs

Sequence in context: A010882 A343638 A293207 * A194074 A175469 A239526

Adjacent sequences: A106587 A106588 A106589 * A106591 A106592 A106593

Keyword

nonn

Author

Roger L. Bagula, May 10 2005

Status

approved