A286400 {1010->1}-transform of the Thue-Morse word A010060.

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

Offset

1

Comments

This is also the {0100->0}-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 1010 by 1 gives 0110110010110101100110110010...

Mathematica

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

Crossrefs

Cf. A010060, A286401, A286402.

Sequence in context: A171587 A284627 A322829 * A288478 A225183 A082410

Adjacent sequences: A286397 A286398 A286399 * A286401 A286402 A286403

Keyword

nonn,easy

Author

Clark Kimberling, May 09 2017

Status

approved