A286752 {010010->null}-transform of the infinite Fibonacci word A003849.

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

Offset

1

Comments

As a word, A003849 = 01001010010010100101001001010010..., and deleting each occurrence of 010010 gives 10100101011010010101101001001..., in which the positions of 0 are given by A286753, and of 1, by A286754.

Links

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

Mathematica

s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {0}}] &, {0}, 12]; (* A003849 *)
w = StringJoin[Map[ToString, s]];
w1 = StringReplace[w, {"010010" -> ""}];
st = ToCharacterCode[w1] - 48; (* A286752 *)
Flatten[Position[st, 0]];  (* A286753 *)
Flatten[Position[st, 1]];  (* A286754 *)

Crossrefs

Cf. A003849, A286753, A286754.

Sequence in context: A090626 A129569 A266611 * A320167 A030658 A187950

Adjacent sequences: A286749 A286750 A286751 * A286753 A286754 A286755

Keyword

nonn,easy

Author

Clark Kimberling, May 14 2017

Status

approved