login
A277745
Trajectory of 1 under repeated application of the morphism 1 -> 1232, 2 -> 1232232, 3 -> 123232.
1
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
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
Sequence in context: A324504 A032452 A084199 * A353497 A320858 A304111
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Nov 08 2016
STATUS
approved