A284848 {1100->1}-transform of the Thue-Morse word A010060.

0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 1, 0, 1, 0, 0, 1, 1, 0, 1, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 1, 0, 1, 1, 1, 0, 1, 0, 0, 1, 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 1100 by 1 gives 011010011011010010111010011011...

Mathematica

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

Crossrefs

Cf. A010060, A285091, A285092.

Sequence in context: A217831 A010060 A316569 * A286484 A118247 A286487

Adjacent sequences: A284845 A284846 A284847 * A284849 A284850 A284851

Keyword

nonn

Author

Clark Kimberling, May 10 2017

Status

approved