A284789 {1001->0}-transform of the Thue-Morse word A010060.

0, 1, 1, 0, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 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 0 gives 01100001100010100001010001...

Mathematica

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

Crossrefs

Cf. A010060, A284790, A284791.

Sequence in context: A182582 A125720 A095130 * A288736 A270803 A030301

Adjacent sequences: A284786 A284787 A284788 * A284790 A284791 A284792

Keyword

nonn,easy

Author

Clark Kimberling, May 09 2017

Status

approved