A103682 Trajectory of 1 under repeated applications of the morphism 1-> {1,2}, 2->{1,2,3}, 3->{1,1,3}.

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

Offset: 1

Author

Roger L. Bagula, Mar 26 2005

Keywords

• nonn

Links

• Index entries for sequences that are fixed points of mappings

Crossrefs

Cf. A073058.

Programs

Mathematica

s[1] = {1, 2}; s[2] = {1, 2, 3}; s[3] = {1, 1, 3}; t[a_] := Join[a, Flatten[s /@ a]]; a = t[t[t[t[t[{1}]]]]]