A286336 {1101->0}-transform of the Thue-Morse word A010060.

0, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 1, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 0, 0, 0, 0, 1, 1, 0, 0, 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 1101 by 0 gives 0000110010000101100000110...

Mathematica

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

Crossrefs

Cf. A010060, A286337, A286338.

Sequence in context: A131532 A353513 A085114 * A011661 A011660 A087101

Adjacent sequences: A286333 A286334 A286335 * A286337 A286338 A286339

Keyword

nonn,easy

Author

Clark Kimberling, May 08 2017

Status

approved