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
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.
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
KEYWORD
nonn
AUTHOR
Roger L. Bagula, May 10 2005
STATUS
approved