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

Author

Robert G. Wilson v, Jul 27 2006

Keywords

• nonn

Crossrefs

Cf. A103684.

Programs

Mathematica

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

Extensions

Name and data corrected by Michel Dekking, Dec 02 2019