A280046 Image of A053838 under the morphism 0 -> 0000, 1 -> 0100, 2 -> 0110.

0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0

Offset

0

Links

Table of n, a(n) for n=0..99.

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

Cf. A053838.

Sequence in context: A143731 A079872 A235046 * A169672 A011672 A353492

Adjacent sequences: A280043 A280044 A280045 * A280047 A280048 A280049

Keyword

nonn

Author

N. J. A. Sloane, Dec 30 2016

Extensions

More terms from Jean-François Alcover, Nov 16 2018

Status

approved