The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A191250 Fixed point of the morphism 0 -> 01, 1 -> 02, 2 -> 001. 20
 0, 1, 0, 2, 0, 1, 0, 0, 1, 0, 1, 0, 2, 0, 1, 0, 1, 0, 2, 0, 1, 0, 2, 0, 1, 0, 0, 1, 0, 1, 0, 2, 0, 1, 0, 2, 0, 1, 0, 0, 1, 0, 1, 0, 2, 0, 1, 0, 0, 1, 0, 1, 0, 2, 0, 1, 0, 1, 0, 2, 0, 1, 0, 2, 0, 1, 0, 0, 1, 0, 1, 0, 2, 0, 1, 0, 0, 1, 0, 1, 0, 2, 0, 1, 0, 1, 0, 2, 0, 1, 0, 2, 0, 1, 0, 0, 1, 0, 1, 0, 2, 0, 1, 0, 1, 0, 2, 0, 1, 0, 2, 0, 1, 0, 0, 1, 0, 1, 0, 2, 0, 1, 0, 2, 0, 1, 0, 0, 1, 0, 1, 0 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,4 COMMENTS A few 3-substitution sequences: A191250: 0 -> 01, 1 -> 02, 2 -> 001 A191254: 0 -> 01, 1 -> 02, 2 -> 01 A191255: 0 -> 01, 1 -> 02, 2 -> 03, 3 -> 01 A191258: 0 -> 01, 1 -> 02, 2 -> 03, 3 -> 001 A191261: 0 -> 01, 1 -> 002, 2 -> 01 A191265: 0 -> 001, 1 -> 002, 2 -> 01 A191269: 0 -> 001, 1 -> 02, 2 -> 01 See also A189576 and A189628. LINKS Table of n, a(n) for n=1..132. MATHEMATICA t = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {0, 2}, 2 -> {0, 0, 1}}] &, {0}, 8] (* A191250 *) Flatten[Position[t, 0]] (* A191251 *) Flatten[Position[t, 1]] (* A191252 *) Flatten[Position[t, 2]] (* A191253 *) CROSSREFS Cf. A191251, A191252, A191253. Sequence in context: A244315 A214303 A281274 * A107064 A113687 A071006 Adjacent sequences: A191247 A191248 A191249 * A191251 A191252 A191253 KEYWORD nonn AUTHOR Clark Kimberling, May 28 2011 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified September 11 02:28 EDT 2024. Contains 375813 sequences. (Running on oeis4.)