A287725 {0->1, 1->011}-transform of the infinite Fibonacci word A003849.

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

Offset

1

Links

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

Example

As a word, A003849 = 0100101001001010010100100..., and replacing each 0 by 1 and each 1 by 011 gives 10111101110111101111011101111011101111011110...

Mathematica

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

Crossrefs

Cf. A287726, A287727.

Sequence in context: A356310 A285430 A284368 * A176702 A188038 A275694

Adjacent sequences: A287722 A287723 A287724 * A287726 A287727 A287728

Keyword

nonn,easy

Author

Clark Kimberling, Jun 02 2017

Status

approved