A285963 {11->0}-transform of the Thue-Morse word A010060.

0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 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 11 by 0 gives 000100000100010010000001000001...

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {1, 0}}] &, {0}, 9] (* Thue-Morse, A010060 *)
w = StringJoin[Map[ToString, s]]
w1 = StringReplace[w, {"11" -> "0"}]
st = ToCharacterCode[w1] - 48 (* A285963 *)
Flatten[Position[st, 0]]  (* A285964 *)
Flatten[Position[st, 1]]  (* A285965 *)

Crossrefs

Cf. A010060, A285964, A285965.

Sequence in context: A024360 A025456 A288314 * A024889 A380534 A368701

Adjacent sequences: A285960 A285961 A285962 * A285964 A285965 A285966

Keyword

nonn,easy

Author

Clark Kimberling, May 05 2017

Status

approved