A286991 Positions of 0 in A286990; complement of A286992.

2, 5, 7, 9, 11, 14, 16, 18, 20, 23, 26, 28, 30, 32, 35, 37, 39, 41, 44, 47, 49, 51, 53, 56, 58, 60, 62, 65, 67, 69, 71, 74, 77, 79, 81, 83, 86, 88, 90, 92, 95, 98, 100, 102, 104, 107, 109, 111, 113, 116, 118, 120, 122, 125, 128, 130, 132, 134, 137, 139, 141

Offset

1,1

Comments

a(n) - a(n-1) is in {2,3} for n>=2, and a(n)/n -> (12 + 3*sqrt(2))/7.

Links

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

Example

As a word, A286990 = 1011010101011010101011..., in which 0 is in positions 2,5,7,9,....

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, A286990, A286992.

Sequence in context: A206815 A024510 A169865 * A029905 A057437 A339922

Adjacent sequences: A286988 A286989 A286990 * A286992 A286993 A286994

Keyword

nonn,easy

Author

Clark Kimberling, May 19 2017

Status

approved