A286987 {111->1}-transform of the Sturmian word A080764.

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

Offset

1

Comments

A080764 = 1101101110110111011011011101..., and replacing each 111 by 1 gives

1101101011010110110101101011011010..., in which the positions of 0 are given by A286988, and of 1, by A286989.

Links

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

Mathematica

s = Nest[Flatten[# /. {0 -> 1, 1 -> {1, 1, 0}}] &, {1}, 11]; (* Sturmian word A080764 *)
w = StringJoin[Map[ToString, s]];
w1 = StringReplace[w, {"111" -> "1"}]
st = ToCharacterCode[w1] - 48 ; (* A286987 *)
Flatten[Position[st, 0]];  (* A286988 *)
Flatten[Position[st, 1]];  (* A286989 *)

Crossrefs

Cf. A080764, A286988, A286989.

Sequence in context: A014471 A230002 A071028 * A011635 A015752 A015878

Adjacent sequences: A286984 A286985 A286986 * A286988 A286989 A286990

Keyword

nonn,easy

Author

Clark Kimberling, May 18 2017

Status

approved