A106560 Trajectory of 1 under the morphism 1->{2, 3, 2}, 2->{3, 1, 3}, 3->{4, 4, 4}, 4->{1, 2, 1}.

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

Offset

0,1

Comments

Characteristic polynomial is x^4 - x^3 - 4x^2 - x - 15.

Links

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

F. M. Dekking, Recurrent Sets, Advances in Mathematics, vol. 44, no. 1, April 1982, page 85, section 4.1

Index entries for sequences that are fixed points of mappings

Mathematica

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

Crossrefs

Sequence in context: A004549 A305389 A026600 * A263350 A202495 A353297

Adjacent sequences: A106557 A106558 A106559 * A106561 A106562 A106563

Keyword

nonn

Author

Roger L. Bagula, May 09 2005

Extensions

Edited by N. J. A. Sloane, Jun 03 2006

Status

approved