A285957 {01->0}-transform of the Thue-Morse word A010060.

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

Offset

1

Comments

This is also the {10->0}-transform of the Thue-Morse word A010060.

Links

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

Example

As a word, A010060 = 0110100110010110100101100..., and replacing each 01 by 0 gives 01000100010000100100010001...

Mathematica

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

Crossrefs

Cf. A010060, A285958, A285959.

Sequence in context: A241666 A324539 A324964 * A292273 A324772 A285949

Adjacent sequences: A285954 A285955 A285956 * A285958 A285959 A285960

Keyword

nonn,easy

Author

Clark Kimberling, May 05 2017

Status

approved