

A287516


Start with 0 and repeatedly substitute 0>012, 1>102, 2>021.


4



0, 1, 2, 1, 0, 2, 0, 2, 1, 1, 0, 2, 0, 1, 2, 0, 2, 1, 0, 1, 2, 0, 2, 1, 1, 0, 2, 1, 0, 2, 0, 1, 2, 0, 2, 1, 0, 1, 2, 1, 0, 2, 0, 2, 1, 0, 1, 2, 0, 2, 1, 1, 0, 2, 0, 1, 2, 1, 0, 2, 0, 2, 1, 0, 1, 2, 0, 2, 1, 1, 0, 2, 1, 0, 2, 0, 1, 2, 0, 2, 1, 1, 0, 2, 0, 1
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,3


COMMENTS

This is the fixed point of the morphism 0>012, 1>102, 2>021 starting with 0. Let u be the (nonperiodic) sequence of positions of 0, and likewise, v for 1 and w for 2; then u(n)/n > 3, v(n)/n > 3, w(n)/n > 3.
See A287385 for a guide to related sequences.


LINKS

Clark Kimberling, Table of n, a(n) for n = 1..10000
Index entries for sequences that are fixed points of mappings


EXAMPLE

First three iterations of the morphism: 012, 012102021, 012102021102012021012021102.


MATHEMATICA

s = Nest[Flatten[# /. {0>{0, 1, 2}, 1>{1, 0, 2}, 2>{0, 2, 1}}] &, {0}, 9]; (*A287516*)
Flatten[Position[s, 0]]; (*A287517*)
Flatten[Position[s, 1]]; (*A287518*)
Flatten[Position[s, 2]]; (*A287519*)


CROSSREFS

Cf. A287385, A287517, A287518, A287519.
Sequence in context: A127476 A140397 A120614 * A252055 A324144 A320836
Adjacent sequences: A287513 A287514 A287515 * A287517 A287518 A287519


KEYWORD

nonn,easy


AUTHOR

Clark Kimberling, May 30 2017


STATUS

approved



