A106055 Fixed point of the morphism 1 -> 21212, 2 -> 3, 3 -> 43434, 4 -> 1, applied 4*k times to 1.

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

Offset

0,2

Links

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

Formula

1->{2, 1, 2, 1, 2}, 2->{3}, 3->{4, 3, 4, 3, 4}, 4->{1}.

Mathematica

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

Crossrefs

Sequence in context: A136627 A108171 A231475 * A171783 A251767 A168309

Adjacent sequences: A106052 A106053 A106054 * A106056 A106057 A106058

Keyword

nonn,easy,less

Author

Roger L. Bagula, May 06 2005

Extensions

New name from Joerg Arndt, Nov 07 2016

Status

approved