A107474 1-limiting word of the morphism 1->2, 2->1234, 3->24, 4->23.

1, 2, 3, 4, 2, 1, 2, 3, 4, 2, 4, 2, 3, 1, 2, 3, 4, 2, 3, 1, 2, 3, 4, 2, 4, 2, 1, 2, 3, 4, 2, 4, 2, 3, 1, 2, 3, 4, 2, 1, 2, 3, 4, 2, 4, 2, 3, 1, 2, 3, 4, 2, 3, 1, 2, 3, 4, 2, 4, 2, 1, 2, 3, 4, 2, 4, 2, 3, 1, 2, 3, 4, 2, 4, 2, 1, 2, 3, 4, 2, 4, 2, 3, 1, 2, 3, 4, 2, 3, 1, 2, 3, 4, 2, 1, 2, 3, 4, 2, 4, 2, 3, 1, 2, 3

Offset

0,2

Links

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

Mathematica

s[1] = {2}; s[2] = {1, 2, 3, 4}; s[3] = {2, 4}; s[4] = {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: A037900 A037838 A165052 * A114734 A299755 A323907

Adjacent sequences: A107471 A107472 A107473 * A107475 A107476 A107477

Keyword

nonn

Author

Roger L. Bagula, May 27 2005

Extensions

Edited by Sean A. Irvine, Jun 22 2026

Status

approved