A106650 Limiting word under substitution 1->{2}, 2->{3}, 3->{4}, 4->{1, 2, 3, 4}, using axiom 1.

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

Offset

0,1

Links

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

Mathematica

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

Crossrefs

Sequence in context: A294731 A085710 A248004 * A076942 A205127 A360407

Adjacent sequences: A106647 A106648 A106649 * A106651 A106652 A106653

Keyword

nonn,easy,less

Author

Roger L. Bagula, May 12 2005

Status

approved