%I #12 Nov 20 2021 13:27:21
%S 1,2,2,2,2,1,1,1,2,1,1,1,2,1,1,1,2,1,1,1,1,2,2,2,1,2,2,2,1,2,2,2,2,1,
%T 1,1,1,2,2,2,1,2,2,2,1,2,2,2,2,1,1,1,1,2,2,2,1,2,2,2,1,2,2,2,2,1,1,1,
%U 1,2,2,2,1,2,2,2,1,2,2,2,1,2,2,2,2,1,1,1,2,1,1,1,2,1,1,1,1,2,2,2,2,1,1,1,2
%N Trajectory of 1 under the morphism 1->1222, 2->2111.
%H F. M. Dekking, <a href="http://dx.doi.org/10.1016/0001-8708(82)90066-4">Recurrent sets</a>, Advances in Mathematics, vol. 44, no. 1 (1982), 78-104.
%H <a href="/index/Fi#FIXEDPOINTS">Index entries for sequences that are fixed points of mappings</a>
%p subs({1=[1,2,2,2],2=[2,1,1,1]},1): subs({1=[1,2,2,2],2=[2,1,1,1]},%): subs({1=[1,2,2,2],2=[2,1,1,1]},%): subs({1=[1,2,2,2],2=[2,1,1,1]},%); # remove all brackets from the output; _Emeric Deutsch_, May 31 2005
%t Nest[ Flatten[ # /. {1 -> {1, 2, 2, 2}, 2 -> {2, 1, 1, 1}}] &, {1}, 5] (* _Robert G. Wilson v_, Jun 20 2005 *)
%t SubstitutionSystem[{1->{1,2,2,2},2->{2,1,1,1}},1,4]//Flatten (* _Harvey P. Dale_, Nov 20 2021 *)
%K nonn,easy
%O 0,2
%A _N. J. A. Sloane_, May 20 2005
%E More terms from _Emeric Deutsch_, May 31 2005
|