OFFSET
0
LINKS
Michel Rigo, Relations on words, Indagationes Mathematicae, Vol. 28, No. 1 (2017), pp. 183-204, arXiv preprint, arXiv:1602.03364 [cs.FL], 2016.
MATHEMATICA
terms = 100; Clear[f];
f[k_] := f[k] = (A053838 = SubstitutionSystem[{0 -> {0, 1, 2}, 1 -> {1, 2, 0}, 2 -> {2, 0, 1}}, {0}, k] // Last; SubstitutionSystem[{0 -> {0, 0, 0, 0}, 1 -> {0, 1, 0, 0}, 2 -> {0, 1, 1, 0}}, A053838, 1] // Last // PadRight[#, terms]& // Take[#, terms]&);
f[k = 1]; f[k++];
While[Print["k = ", k]; f[k] != f[k - 1], k++];
f[k] (* Jean-François Alcover, Nov 16 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Dec 30 2016
EXTENSIONS
More terms from Jean-François Alcover, Nov 16 2018
STATUS
approved