

A105789


Fixed point of the morphism 1 > 12321, 2 > 43234, 3 > 21412, 4 > 34143, starting from a(0) = 1.


0



1, 2, 3, 2, 1, 4, 3, 2, 3, 4, 2, 1, 4, 1, 2, 4, 3, 2, 3, 4, 1, 2, 3, 2, 1, 3, 4, 1, 4, 3, 2, 1, 4, 1, 2, 4, 3, 2, 3, 4, 2, 1, 4, 1, 2, 3, 4, 1, 4, 3, 4, 3, 2, 3, 4, 1, 2, 3, 2, 1, 3, 4, 1, 4, 3, 1, 2, 3, 2, 1, 4, 3, 2, 3, 4, 3, 4, 1, 4, 3, 2, 1, 4, 1, 2, 4, 3, 2, 3, 4, 2, 1, 4, 1, 2, 3, 4, 1, 4, 3, 1, 2, 3, 2, 1
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,2


COMMENTS

EdgarPeano substitution of 4 symbols taken 5 at a time, third type: characteristic polynomial: x^5 + 5*x^3 + 3*x^2  15*x.


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.
G. A. Edgar, Jeffrey Golds, A fractal dimension estimate for a graphdirected IFS of nonsimilarities, arXiv:math/9806039 [math.CA], 1998.
Index entries for sequences that are fixed points of mappings


FORMULA

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


MATHEMATICA

Flatten[ Nest[ Flatten[ # /. {1 > {1, 2, 3, 2, 1}, 2 > {4, 3, 2, 3, 4}, 3 > {2, 1, 4, 1, 2}, 4 > {3, 4, 1, 4, 3}}] &, {1}, 3]] (* Robert G. Wilson v, Jan 24 2006 *)


CROSSREFS

Sequence in context: A118457 A319247 A129773 * A259579 A076549 A210500
Adjacent sequences: A105786 A105787 A105788 * A105790 A105791 A105792


KEYWORD

nonn


AUTHOR

Roger L. Bagula, May 04 2005


EXTENSIONS

Edited by Robert G. Wilson v, Jan 24 2006


STATUS

approved



