|
Search: id:A105789
|
|
|
| A105789 |
|
Fixed point of the morphism 1 -> 12321, 2 -> 43234, 3 -> 21412, 4 -> 34143, starting from a(0) = 1. |
|
+0
1
|
|
| 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; listen)
|
|
|
OFFSET
|
0,2
|
|
|
COMMENT
|
Edgar-Peano substitution of 4 symbols taken 5 at a time, third type: characteristic polynomial:-x^5+5*x^3+3*x^2-15*x
|
|
REFERENCES
|
F. M. Dekking, "Recurrent Sets", Advances in Mathematics, vol. 44, no.1, 1982, page 85, section 4.1
G. A. Edgar and Jeffery Golds, "A Fractal Dimension Estimate for a Graph-Directed IFS of Non-Similarities", 1991
|
|
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]] (from Robert G. Wilson v (rgwv(at)rgwv.com), Jan 24 2006)
|
|
CROSSREFS
|
Adjacent sequences: A105786 A105787 A105788 this_sequence A105790 A105791 A105792
Sequence in context: A106377 A118457 A129773 this_sequence A076549 A104411 A055101
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), May 04 2005
|
|
EXTENSIONS
|
Edited by Robert G. Wilson v (rgwv(at)rgwv.com), Jan 24 2006
|
|
|
Search completed in 0.002 seconds
|
