A108015 2-limiting word of the morphism 1->4, 2->12, 3->2, 4->34.

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

Offset

0,1

Links

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

Mathematica

s[1] = {4}; s[2] = {1, 2}; s[3] = {2}; s[4] = {3, 4}; t[a_] := Flatten[s /@ a]; p[0] = {1}; p[1] = t[p[0]]; p[n_] := t[p[n - 1]] aa = p[11]

Crossrefs

Sequence in context: A323374 A324197 A259573 * A344322 A030398 A030384

Adjacent sequences: A108012 A108013 A108014 * A108016 A108017 A108018

Keyword

nonn,changed

Author

Roger L. Bagula, May 30 2005

Extensions

Edited by Sean A. Irvine, Jul 01 2026

Status

approved