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

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

Offset

1

Comments

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

Links

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

Formula

a(n) = 1 - A286990 for n >= 1.

Mathematica

s = Nest[Flatten[# /. {0 -> 1, 1 -> {1, 1, 0}}] &, {1}, 11]; (* Sturmian word A080764 *)
w = StringJoin[Map[ToString, s]];
w1 = StringReplace[w, {"0" -> "101", "1"->"010"}]
st = ToCharacterCode[w1] - 48 ; (* A287028 *)
Flatten[Position[st, 0]];  (* A286992 *)
Flatten[Position[st, 1]];  (* A286991 *)

Crossrefs

Cf. A080764, A286992, A286991.

Sequence in context: A284468 A260455 A189572 * A327202 A357448 A083651

Adjacent sequences: A287025 A287026 A287027 * A287029 A287030 A287031

Keyword

nonn,easy

Author

Clark Kimberling, May 20 2017

Status

approved