A286908 Positions of 0 in A286907; complement of A286909.

1, 3, 5, 6, 7, 9, 11, 12, 13, 15, 17, 19, 20, 21, 23, 25, 26, 27, 29, 31, 33, 34, 35, 37, 39, 40, 41, 43, 45, 46, 47, 49, 51, 53, 54, 55, 57, 59, 60, 61, 63, 65, 67, 68, 69, 71, 73, 74, 75, 77, 79, 80, 81, 83, 85, 87, 88, 89, 91, 93, 94, 95, 97, 99, 101, 102

Offset

1,2

Comments

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

Links

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

Example

As a word, A286907 = 0101000101000101..., in which 0 is in positions 1,3,5,6,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" -> "00", "1" -> "01"}]
st = ToCharacterCode[w1] - 48 ; (* A286907 *)
Flatten[Position[st, 0]];  (* A286908 *)
Flatten[Position[st, 1]];  (* A286909 *)

Crossrefs

Cf. A080764, A286907, A286909.

Sequence in context: A342051 A232744 A284015 * A284852 A285627 A050876

Adjacent sequences: A286905 A286906 A286907 * A286909 A286910 A286911

Keyword

nonn,easy

Author

Clark Kimberling, May 18 2017

Status

approved