

A105646


Fixed point of the morphism 1 > 121, 2 > 343, 3 > 434, 4 > 212, starting from a(0) = 1.


0



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



OFFSET

0,2


COMMENTS

Rectangular spacefill from Peano spacefill by row permutation of the digraph matrix: Characteristic polynomial: x^43*x^33*x+9.


REFERENCES

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


LINKS

Table of n, a(n) for n=0..104.
Index entries for sequences that are fixed points of mappings


FORMULA

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


MATHEMATICA

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


CROSSREFS

Sequence in context: A210793 A281715 A076632 * A059126 A059128 A050273
Adjacent sequences: A105643 A105644 A105645 * A105647 A105648 A105649


KEYWORD

nonn


AUTHOR

Roger L. Bagula, May 03 2005


EXTENSIONS

Edited by Robert G. Wilson v, Jan 24 2006


STATUS

approved



