A285969 {0110->0}-transform of the Thue-Morse word A010060.

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

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 0 gives 0100010100100...

Mathematica

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

Crossrefs

Cf. A010060, A285970, A285971, A286064.

Sequence in context: A134667 A354354 A117943 * A189664 A260446 A096268

Adjacent sequences: A285966 A285967 A285968 * A285970 A285971 A285972

Keyword

nonn,easy

Author

Clark Kimberling, May 08 2017

Extensions

Typo in name corrected by Michel Dekking, Oct 15 2019

Status

approved