A284627 {0011->1}-transform of the Thue-Morse word A010060.

0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 0, 0, 1, 0, 1, 1, 1, 0, 1, 1, 0, 0, 1, 0, 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 0011 by 1 gives 01101100101101001011101100101110...

Mathematica

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

Crossrefs

Cf. A010060, A284684, A284685.

Sequence in context: A217207 A083924 A171587 * A322829 A286400 A288478

Adjacent sequences: A284624 A284625 A284626 * A284628 A284629 A284630

Keyword

nonn,easy

Author

Clark Kimberling, May 10 2017

Status

approved