A286996 {0->000, 11->null}-transform of the Sturmian word A080764.

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

Offset

1

Comments

A080764 = 1101101110110111011011011101..., and replacing each 0 by 000 and deleting each 11 gives 000000100000010000000001000000100..., in which the positions of 0 are given by A286997, and of 1, by A188383.

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", "11"->""}]
st = ToCharacterCode[w1] - 48 ; (* A286996 *)
Flatten[Position[st, 0]];  (* A286997 *)
Flatten[Position[st, 1]];  (* A188383 *)

Crossrefs

Cf. A080764, A286997, A188383.

Sequence in context: A358758 A185708 A373256 * A044937 A025459 A079365

Adjacent sequences: A286993 A286994 A286995 * A286997 A286998 A286999

Keyword

nonn,easy

Author

Clark Kimberling, May 19 2017

Status

approved