A285495 0-limiting word of the morphism 0->11, 1-> 0010.

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

Offset

1

Comments

The morphism 0->11, 1-> 0010 has two limiting words. If the number of iterations is even, the 0-word evolves from 0 -> 11 -> 00100010 -> 11110010111111001011 -> 001000100010001011... ; if the number of iterations is odd, the 1-word evolves from 0 -> 11 -> 00100010 -> 11110010111111001011, as in A285498.

Links

Clark Kimberling, Table of n, a(n) for n = 1..10000

Mathematica

s = Nest[Flatten[# /. {0 -> {1, 1}, 1 -> {0, 0, 1, 0}}] &, {0}, 10] (* A285495 *)
Flatten[Position[s, 0]]  (* A285496 *)
Flatten[Position[s, 1]]  (* A285497 *)

Crossrefs

Cf. A285496, A285497, A285498.

Sequence in context: A079261 A354028 A359152 * A073059 A288173 A221150

Adjacent sequences: A285492 A285493 A285494 * A285496 A285497 A285498

Keyword

nonn,easy

Author

Clark Kimberling, Apr 29 2017

Status

approved