A286493 {1011->0}-transform of the Thue-Morse word A010060.

0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 1, 0, 1, 0, 0, 0, 0, 1, 0, 0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 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 1011 by 0 gives 011010011000010000011010011000001...

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {1, 0}}] &, {0}, 9] (* A010060 *)
w = StringJoin[Map[ToString, s]]
w1 = StringReplace[w, {"1011" -> "0"}]
st = ToCharacterCode[w1] - 48  (* A286493 *)
Flatten[Position[st, 0]]  (* A286494 *)
Flatten[Position[st, 1]]  (* A286495 *)

Crossrefs

Cf. A010060, A286494, A286495.

Sequence in context: A284622 A215581 A156595 * A189084 A143222 A286490

Adjacent sequences: A286490 A286491 A286492 * A286494 A286495 A286496

Keyword

nonn,easy

Author

Clark Kimberling, May 11 2017

Status

approved