A277745 Trajectory of 1 under repeated application of the morphism 1 -> 1232, 2 -> 1232232, 3 -> 123232.

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, 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, 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

Offset: 1

Author

N. J. A. Sloane, Nov 08 2016

Keywords

• nonn

Comments

This is A275925 put into Dekking's standard form.

Links

• F. Michel Dekking, Morphisms, Symbolic Sequences, and Their Standard Forms, Journal of Integer Sequences, Vol. 19 (2016), Article 16.1.1.

Crossrefs

Cf. A275925, A276790.

Programs

Maple

with(ListTools);
psi:=proc(S)
Flatten(subs( {1=[1,2,3,2], 2=[1,2,3,2,2,3,2], 3=[1,2,3,2,3,2]}, S));
end;
S:=[1];
for n from 1 to 4 do S:=psi(S): od:
S;

Mathematica

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 *)