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

Author

Clark Kimberling, May 18 2017

Keywords

• nonn
• easy

Comments

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

Examples

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

Links

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

Crossrefs

Cf. A080764, A286987, A286989.

Programs

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 *)