|
%I #8 Jan 21 2018 09:35:47
%S 1,2,3,2,1,2,3,2,2,3,2,1,2,3,2,3,2,1,2,3,2,2,3,2,1,2,3,2,1,2,3,2,2,3,
%T 2,1,2,3,2,3,2,1,2,3,2,2,3,2,1,2,3,2,2,3,2,1,2,3,2,3,2,1,2,3,2,2,3,2,
%U 1,2,3,2,1,2,3,2,2,3,2,1,2,3,2,3,2,1,2,3,2,2,3,2,1,2,3,2,3,2,1,2,3
%N Trajectory of 1 under repeated application of the morphism 1 -> 1232, 2 -> 1232232, 3 -> 123232.
%C This is A275925 put into Dekking's standard form.
%H F. Michel Dekking, <a href="https://cs.uwaterloo.ca/journals/JIS/VOL19/Dekking/dekk4.html">Morphisms, Symbolic Sequences, and Their Standard Forms</a>, Journal of Integer Sequences, Vol. 19 (2016), Article 16.1.1.
%p with(ListTools);
%p psi:=proc(S)
%p Flatten(subs( {1=[1,2,3,2], 2=[1,2,3,2,2,3,2], 3=[1,2,3,2,3,2]}, S));
%p end;
%p S:=[1];
%p for n from 1 to 4 do S:=psi(S): od:
%p S;
%t SubstitutionSystem[{1 -> {1, 2, 3, 2}, 2 -> {1, 2, 3, 2, 2, 3, 2}, 3 -> {1, 2, 3, 2, 3, 2}}, {1}, 3] // Last (* _Jean-François Alcover_, Jan 21 2018 *)
%Y Cf. A275925, A276790.
%K nonn
%O 1,2
%A _N. J. A. Sloane_, Nov 08 2016
|
