A286487 {0010->1}-transform of the Thue-Morse word A010060.

0, 1, 1, 0, 1, 0, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 1, 1, 1, 0, 0, 1, 1, 0, 1, 1, 1, 1, 0, 1, 0, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 0, 0, 1, 1, 0, 1, 1, 1, 1, 0, 1, 0, 0, 1, 1, 1, 1, 1, 0, 0, 1, 1, 0, 1, 0, 0, 1, 1, 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 0010 by 1 gives 01101001111101111001101001111100...

Mathematica

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

Crossrefs

Cf. A010060, A286488, A286489.

Sequence in context: A284848 A286484 A118247 * A122257 A332219 A227625

Adjacent sequences: A286484 A286485 A286486 * A286488 A286489 A286490

Keyword

nonn,easy

Author

Clark Kimberling, May 10 2017

Status

approved