A286049 {110->1}-transform of the Thue-Morse word A010060.

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

Offset

1

Comments

This is also the {100->0}-transform of A010060.

Links

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

Example

As a word, A010060 = 0110100110010110100101100..., and replacing each 011 by 1 gives 01100101011001010110010101011001...

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {1, 0}}] &, {0}, 9] (* Thue-Morse, A010060 *)
w = StringJoin[Map[ToString, s]]
w1 = StringReplace[w, {"110" -> "1"}]
st = ToCharacterCode[w1] - 48 (* A286049 *)
Flatten[Position[st, 0]]  (* A286050 *)
Flatten[Position[st, 1]]  (* A286051 *)

Crossrefs

Cf. A010060, A286050, A286051.

Sequence in context: A257628 A203568 A327974 * A287657 A347198 A079336

Adjacent sequences: A286046 A286047 A286048 * A286050 A286051 A286052

Keyword

nonn,easy

Author

Clark Kimberling, May 07 2017

Status

approved