A287790 {0->001, 1->110}-transform of the infinite Fibonacci word A003849.

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

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 001 and each 1 by 110 gives 00111000100111000111000100111000100...

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {0}}] &, {0}, 10] (* A003849 *)
w = StringJoin[Map[ToString, s]]
w1 = StringReplace[w, {"0" -> "001", "1" -> "110"}]
st = ToCharacterCode[w1] - 48    (* A287790 *)
Flatten[Position[st, 0]]  (* A287791 *)
Flatten[Position[st, 1]]  (* A287792 *)

Crossrefs

Cf. A287791, A287792.

Sequence in context: A335716 A138150 A271591 * A285159 A073089 A373470

Adjacent sequences: A287787 A287788 A287789 * A287791 A287792 A287793

Keyword

nonn,easy

Author

Clark Kimberling, Jun 03 2017

Status

approved