A286903 {0->00}-transform of the Sturmian word A080764.

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

Offset

1

Comments

A080764 = 1101101110110111011011011101..., and replacing each 0 by 00 gives

1100110011100110011100110011001..., in which the positions of 0 are given by A286904, and of 1, by A286905.

Links

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

Mathematica

s = Nest[Flatten[# /. {0 -> 1, 1 -> {1, 1, 0}}] &, {1}, 7] (* A080764 *)
w = StringJoin[Map[ToString, s]]
w1 = StringReplace[w, {"0" -> "00"}]
st = ToCharacterCode[w1] - 48 ; (* A286903 *)
Flatten[Position[st, 0]];  (* A286904 *)
Flatten[Position[st, 1]];  (* A286905 *)

Crossrefs

Cf. A080764, A286904, A286905.

Sequence in context: A219977 A128130 A133872 * A339052 A284490 A284505

Adjacent sequences: A286900 A286901 A286902 * A286904 A286905 A286906

Keyword

nonn,easy

Author

Clark Kimberling, May 17 2017

Status

approved