OFFSET
1,1
COMMENTS
LINKS
N. J. A. Sloane, Table of n, a(n) for n = 1..10000
MAPLE
See A277732.
MATHEMATICA
m = 1000; (* number of terms of A277731 *)
S[1] = {0};
S[n_] := S[n] = SubstitutionSystem[{0 -> {0, 1}, 1 -> {0, 1, 2}, 2 -> {0}}, S[n - 1]];
For[n = 2, True, n++, If[PadRight[S[n], m] == PadRight[S[n - 1], m], Print["n = ", n]; Break[]]];
A277731 = Take[S[n], m];
Position[A277731, 2] // Flatten (* Jean-François Alcover, Mar 20 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Nov 07 2016
STATUS
approved