A286990 {0->010, 1->101}-transform of the Sturmian word A080764.

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

Offset

1

Comments

A080764 = 1101101110110111011011011101..., and replacing each 0 by 010 and each 1 by 101 gives 101101010101101010101101101010101..., in which the positions of 0 are given by A286991, and of 1, by A286992.

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" -> "010", "1"->"101"}]
st = ToCharacterCode[w1] - 48 ; (* A286990 *)
Flatten[Position[st, 0]];  (* A286991 *)
Flatten[Position[st, 1]];  (* A286992 *)

Crossrefs

Cf. A080764, A286991, A286992.

Sequence in context: A104974 A266719 A024711 * A249866 A369736 A128174

Adjacent sequences: A286987 A286988 A286989 * A286991 A286992 A286993

Keyword

nonn,easy

Author

Clark Kimberling, May 19 2017

Status

approved