A287722 {0->1, 1->010}-transform of the infinite Fibonacci word A003849.

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

Offset

1

Comments

As a word, A003849 = 0100101001001010010100100..., and replacing each 0 by 1 and each 1 by 010 gives 10101101010101101...

Links

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

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {0}}] &, {0}, 10] (* A003849 *)
w = StringJoin[Map[ToString, s]]
w1 = StringReplace[w, {"0" -> "1", "1" -> "010"}]
st = ToCharacterCode[w1] - 48    (* A287722 *)
Flatten[Position[st, 0]]  (* A287723 *)
Flatten[Position[st, 1]]  (* A287724 *)

Crossrefs

Cf. A287723, A287724.

easy

Sequence in context: A363914 A266246 A177990 * A284588 A113704 A341150

Adjacent sequences: A287719 A287720 A287721 * A287723 A287724 A287725

Keyword

nonn

Author

Clark Kimberling, Jun 02 2017

Status

approved