A286052 {101->0}-transform of the Thue-Morse word A010060.

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

Offset

1

Links

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

Example

As a word, A010060 = 0110100110010110100101100..., and replacing each 101 by 0 gives 0100011000000010010001100010010000...

Mathematica

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

Crossrefs

Cf. A010060, A286053, A286054.

Sequence in context: A219097 A284751 A288426 * A342910 A341258 A285831

Adjacent sequences: A286049 A286050 A286051 * A286053 A286054 A286055

Keyword

nonn,easy

Author

Clark Kimberling, May 07 2017

Status

approved