|
%I #7 Sep 11 2023 21:44:43
%S 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,
%T 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,
%U 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
%N Trajectory of 1 under repeated applications of the morphism 1-> {1,2}, 2->{1,2,3}, 3->{1,1,3}.
%H <a href="/index/Fi#FIXEDPOINTS">Index entries for sequences that are fixed points of mappings</a>
%t 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}]]]]]
%Y Cf. A073058.
%K nonn
%O 1,3
%A _Roger L. Bagula_, Mar 26 2005
|
