A119647 Fixed point of the morphism 1->{1,2}, 2->{1,3}, 3->{1}.

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

Offset

1,2

Links

Table of n, a(n) for n=1..105.

Mathematica

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

Crossrefs

Cf. A103684.

Sequence in context: A078734 A028293 A092782 * A228098 A366833 A353161

Adjacent sequences: A119644 A119645 A119646 * A119648 A119649 A119650

Keyword

nonn

Author

Robert G. Wilson v, Jul 27 2006

Extensions

Name and data corrected by Michel Dekking, Dec 02 2019

Status

approved