A284622 {0011->0}-transform of the Thue-Morse word A010060.

0, 1, 1, 0, 1, 0, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 0, 1, 0, 1, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 1, 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 0011 by 0 gives 011010001011010010110010001011...

Mathematica

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

Crossrefs

Cf. A010060, A284623, A284626.

Sequence in context: A365089 A295890 A342704 * A215581 A156595 A286493

Adjacent sequences: A284619 A284620 A284621 * A284623 A284624 A284625

Keyword

nonn,easy

Author

Clark Kimberling, May 10 2017

Status

approved