A286055 {010->1}-transform of the Thue-Morse word A010060.

0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 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 010 by 0 gives 0111011011111110011101101110...

Mathematica

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

Crossrefs

Cf. A010060, A286056, A286057.

Sequence in context: A095770 A285972 A275510 * A140318 A060584 A098725

Adjacent sequences: A286052 A286053 A286054 * A286056 A286057 A286058

Keyword

nonn,easy

Author

Clark Kimberling, May 08 2017

Status

approved