A284792 {1001->1}-transform of the Thue-Morse word A010060.

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

Offset

1

Links

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

Example

As a word, A010060 = 0110100110010110100101100..., and replacing each 1001 by 1 gives 011011011010111011011101011011...

Mathematica

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

Crossrefs

Cf. A010060, A284933, A284934.

Sequence in context: A189479 A260394 A181932 * A094217 A280261 A174784

Adjacent sequences: A284789 A284790 A284791 * A284793 A284794 A284795

Keyword

nonn,easy

Author

Clark Kimberling, May 10 2017

Status

approved