A286064 {0110->1}-transform of the Thue-Morse word A010060.

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

Offset

1

Links

Clark Kimberling, Table of n, a(n) for n = 1..10000

Example

As a word, A010060 = 0110100110010110100101100..., and replacing each 0110 by 1 gives 11010111001111...

Mathematica

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

Crossrefs

Cf. A010060, A286065, A286066, A285969.

Sequence in context: A285952 A371691 A103842 * A065535 A285518 A093719

Adjacent sequences: A286061 A286062 A286063 * A286065 A286066 A286067

Keyword

nonn,easy

Author

Clark Kimberling, May 08 2017

Status

approved