A286937 {111->null}-transform of the Sturmian word A080764.

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

Offset

1

Comments

A080764 = 1101101110110111011011011101..., and removing each 111 gives

110110011001101100110011..., in which the positions of 0 are given by A286938, and of 1, by A286939.

Links

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

Formula

a(n) = 1 - A286804(n) for n >= 1.

Mathematica

s = Nest[Flatten[# /. {0 -> 1, 1 -> {1, 1, 0}}] &, {1}, 7] (* A080764 *)
w = StringJoin[Map[ToString, s]]
w1 = StringReplace[w, {"111" -> ""}]
st = ToCharacterCode[w1] - 48 ; (* A286937 *)
Flatten[Position[st, 0]];  (* A286806 *)
Flatten[Position[st, 1]];  (* A286805 *)

Crossrefs

Cf. A080764, A286805, A286806.

Sequence in context: A145006 A189138 A213719 * A080813 A100672 A079559

Adjacent sequences: A286934 A286935 A286936 * A286938 A286939 A286940

Keyword

nonn,easy

Author

Clark Kimberling, May 17 2017

Status

approved