A286490 {0101->0}-transform of the Thue-Morse word A010060.

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

Offset

1

Comments

This is also the {1011->1}-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 0101 by 0 gives 0110100110010100100110100110010011...

Mathematica

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

Crossrefs

Cf. A010060, A286491, A286492.

Sequence in context: A286493 A189084 A143222 * A372728 A217831 A010060

Adjacent sequences: A286487 A286488 A286489 * A286491 A286492 A286493

Keyword

nonn,easy

Author

Clark Kimberling, May 11 2017

Status

approved