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

Comments

This is A275925 put into Dekking's standard form.

Links

Table of n, a(n) for n=1..101.

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

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

Crossrefs

Cf. A275925, A276790.

Sequence in context: A324504 A032452 A084199 * A353497 A320858 A304111

Adjacent sequences: A277742 A277743 A277744 * A277746 A277747 A277748

Keyword

nonn

Author

N. J. A. Sloane, Nov 08 2016

Status

approved