A106704 5-limiting word of the morphism 1->56, 2->5555, 3->45, 4->3333, 5->123, 6->1111 starting from 1.

5, 6, 5, 5, 5, 5, 4, 5, 5, 6, 5, 6, 5, 6, 5, 6, 5, 6, 5, 5, 5, 5, 4, 5, 5, 6, 5, 5, 5, 5, 4, 5, 5, 6, 5, 5, 5, 5, 4, 5, 5, 6, 5, 5, 5, 5, 4, 5, 4, 5, 4, 5, 4, 5, 4, 5, 5, 6, 5, 5, 5, 5, 4, 5, 5, 6, 5, 5, 5, 5, 4, 5, 5, 6, 5, 6, 5, 6, 5, 6, 5, 6, 5, 5, 5, 5, 4, 5, 5, 6, 5, 6, 5, 6, 5, 6, 5, 6, 5, 5, 5, 5, 4, 5, 5

Offset

0,1

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

n0=6; n=4; s[1] = {5, 6}; s[2] = Table[If[i <= n, 5, {}], {i, 1, n0}]; s[3] = {4, 5}; s[4] = Table[If[i <= n, 3, {}], {i, 1, n0}]; s[5] = {1, 2, 3}; s[6] = Table[If[i <= n, 1, {}], {i, 1, n0}]; t[a_] := Flatten[s /@ a]; p[0] = {1}; p[1] = t[p[0]]; p[n_] := t[p[n - 1]] aa = p[5]

Crossrefs

Sequence in context: A394404 A087496 A198742 * A127205 A006944 A010717

Adjacent sequences: A106701 A106702 A106703 * A106705 A106706 A106707

Keyword

nonn,changed

Author

Roger L. Bagula, May 09 2005

Extensions

Edited by Sean A. Irvine, Jun 07 2026

Status

approved