A106703 1-limiting word of the morphism 1->333, 2->34, 3->12, 4->222.

1, 2, 1, 2, 1, 2, 1, 2, 2, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 2, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 2, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 2, 2, 2, 1, 2, 2, 2, 2, 1, 2, 2, 2, 2, 1, 2, 2, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 2, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 2, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 2, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 2, 2, 2, 1, 2

Offset

0,2

Links

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

Curtis T. McMullen, Prym varieties and Teichmüller curves, Duke Math. J. 133(3) (2006), 569-590.

Mathematica

s[1] = Table[If[i <= n, 3, {}], {i, 1, n0}]; s[2] = {3, 4}; s[3] = {1, 2}; s[4] = Table[If[i <= n, 2, {}], {i, 1, n0}]; 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: A033831 A338650 A033105 * A127267 A268173 A008617

Adjacent sequences: A106700 A106701 A106702 * A106704 A106705 A106706

Keyword

nonn,changed

Author

Roger L. Bagula, May 09 2005

Extensions

Edited by Sean A. Irvine, Jun 03 2026

Status

approved