A105239 Trajectory of 1 under the morphism 1 -> 121, 2 -> 434, 3 -> 212, 4 -> 343.

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

Offset

0,2

Comments

Incorrect attempt to recreate Example (4.1) from the Dekking reference. - Joerg Arndt, May 16 2021

Characteristic polynomial is x^4-3*x^3-3*x+9 = (x-3) * (x^3-3).

Links

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

F. M. Dekking, Recurrent sets, Advances in Mathematics, vol. 44, no. 1 (1982), 78-104; page 85, section 4.1.

Index entries for sequences that are fixed points of mappings

Mathematica

Flatten[ Nest[ Flatten[ # /. {1 -> {1, 2, 1}, 2 -> {4, 3, 4}, 3 -> {2, 1, 2}, 4 -> {3, 4, 3}} &], {1}, 5]]

Crossrefs

Sequence in context: A159573 A102916 A081234 * A261366 A283166 A130973

Adjacent sequences: A105236 A105237 A105238 * A105240 A105241 A105242

Keyword

nonn,easy,less

Author

Roger L. Bagula, Apr 29 2005

Extensions

Edited by Joerg Arndt, May 16 2021

Status

approved