A057985 Start with 0 and repeatedly substitute: 0->01, 1->12, 2->0.
0, 1, 1, 2, 1, 2, 0, 1, 2, 0, 0, 1, 1, 2, 0, 0, 1, 0, 1, 1, 2, 1, 2, 0, 0, 1, 0, 1, 1, 2, 0, 1, 1, 2, 1, 2, 0, 1, 2, 0, 0, 1, 0, 1, 1, 2, 0, 1, 1, 2, 1, 2, 0, 0, 1, 1, 2, 1, 2, 0, 1, 2, 0, 0, 1, 1, 2, 0, 0, 1, 0, 1, 1, 2, 0, 1, 1, 2, 1, 2, 0, 0, 1, 1, 2, 1, 2, 0, 1, 2, 0, 0, 1, 0, 1, 1
Offset: 1
Keywords
Links
Crossrefs
Cf. A287066 (initial term 1 instead of 0).
Programs
-
Mathematica
t = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {1, 2}, 2 -> {0}}] &, {0}, 10] (* A057985 *) Flatten[Position[t, 0]] (* A057986 *) Flatten[Position[t, 1]] (* A057987 *) Flatten[Position[t, 2]] (* A057988 *) (* Clark Kimberling, May 13 2013 *)
Comments