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
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Nov 08 2016
STATUS
approved