A286988 Positions of 0 in A286987; complement of A286989.

3, 6, 8, 11, 13, 16, 19, 21, 24, 26, 29, 32, 34, 37, 39, 42, 44, 47, 50, 52, 55, 57, 60, 63, 65, 68, 70, 73, 75, 78, 81, 83, 86, 88, 91, 94, 96, 99, 101, 104, 107, 109, 112, 114, 117, 119, 122, 125, 127, 130, 132, 135, 138, 140, 143, 145, 148, 150, 153, 156

Offset

1,1

Comments

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

Links

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

Example

As a word, A286987 = 1101101011010110110101..., in which 0 is in positions 3,6,8,11,....

Mathematica

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

Crossrefs

Cf. A080764, A286987, A286989.

Sequence in context: A210570 A224839 A122437 * A090848 A184657 A354935

Adjacent sequences: A286985 A286986 A286987 * A286989 A286990 A286991

Keyword

nonn,easy

Author

Clark Kimberling, May 18 2017

Status

approved