A287657 {0->01, 1->10}-transform of the infinite Fibonacci word A003849.

0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 1, 0, 0, 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 01 and each 1 by 10 gives 01100101100110010110010110011001...

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {0}}] &, {0}, 10] (*A003849*)
w = StringJoin[Map[ToString, s]]
w1 = StringReplace[w, {"0" -> "01", "1" -> "10"}]   (*Thue-Morse transform*)
st = ToCharacterCode[w1] - 48    (*A287657*)
Flatten[Position[st, 0]]  (*A287658*)
Flatten[Position[st, 1]]  (*A287659*)

Crossrefs

Cf. A003849, A287658, A287659.

Sequence in context: A203568 A327974 A286049 * A347198 A079336 A288670

Adjacent sequences: A287654 A287655 A287656 * A287658 A287659 A287660

Keyword

nonn,easy

Author

Clark Kimberling, Jun 02 2017

Status

approved