

A106560


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


0



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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 A103431
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



