A286907 {0->00,1->01}-transform of the Sturmian word A080764.

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

Offset

1

Comments

A080764 = 1101101110110111011011011101..., and replacing each 0 by 00 and each 1 by 01 gives 010100010100010101000101000..., in which the positions of 0 are given by A286939, and of 1, by A286940.

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" -> "00", "1" -> "01"}]
st = ToCharacterCode[w1] - 48 ; (* A286907 *)
Flatten[Position[st, 0]];  (* A286908 *)
Flatten[Position[st, 1]];  (* A286909 *)

Crossrefs

Cf. A080764, A286939, A286940.

Sequence in context: A189668 A353525 A353529 * A284851 A289741 A127266

Adjacent sequences: A286904 A286905 A286906 * A286908 A286909 A286910

Keyword

nonn,easy

Author

Clark Kimberling, May 18 2017

Status

approved