A106644 4-limiting word of the morphism 1->3, 2->4, 3->42, 4->1 starting by 1.

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

Offset

0,1

Links

Alois P. Heinz, Table of n, a(n) for n = 0..12679

Maple

f:= n-> [[3], [4], [4, 2], [1]][n][]:
1: for n from 1 to 2+3*7 do map(f, [%])[] od: %;  # Alois P. Heinz, May 17 2026

Mathematica

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

Crossrefs

Sequence in context: A019614 A051528 A073244 * A345996 A190874 A307367

Adjacent sequences: A106641 A106642 A106643 * A106645 A106646 A106647

Keyword

nonn

Author

Roger L. Bagula, May 12 2005

Extensions

Edited by Sean A. Irvine, May 17 2026

Status

approved