A286993 {0->000, 111->1}-transform of the Sturmian word A080764.

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

Offset

1

Comments

A080764 = 1101101110110111011011011101..., and replacing each 0 by 000 and each 111 by 1 gives 11000110001000110001000110001100010..., in which the positions of 0 are given by A286994, and of 1, by A286995.

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, {"0" -> "000", "111"->"1"}]
st = ToCharacterCode[w1] - 48 ; (* A286993 *)
Flatten[Position[st, 0]];  (* A286994 *)
Flatten[Position[st, 1]];  (* A286995 *)

Crossrefs

Cf. A080764, A286994, A286995.

Sequence in context: A151667 A241759 A298249 * A015274 A011651 A016264

Adjacent sequences: A286990 A286991 A286992 * A286994 A286995 A286996

Keyword

nonn,easy

Author

Clark Kimberling, May 19 2017

Status

approved