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

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

Offset

1

Comments

As a word, A003849 = 0100101001001010010100100..., and replacing each 0 by 100 and each 1 by 001 gives 100001100100001100001100100001...

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" -> "100", "1" -> "001"}]
st = ToCharacterCode[w1] - 48    (* A287801 *)
Flatten[Position[st, 0]]  (* A287802 *)
Flatten[Position[st, 1]]  (* A287803 *)

Crossrefs

Cf. A287802, A287803.

Sequence in context: A359464 A011746 A071005 * A089510 A138885 A185115

Adjacent sequences: A287798 A287799 A287800 * A287802 A287803 A287804

Keyword

nonn,easy

Author

Clark Kimberling, Jun 03 2017

Status

approved