A286989 Positions of 1 in A286987; complement of A286988.

1, 2, 4, 5, 7, 9, 10, 12, 14, 15, 17, 18, 20, 22, 23, 25, 27, 28, 30, 31, 33, 35, 36, 38, 40, 41, 43, 45, 46, 48, 49, 51, 53, 54, 56, 58, 59, 61, 62, 64, 66, 67, 69, 71, 72, 74, 76, 77, 79, 80, 82, 84, 85, 87, 89, 90, 92, 93, 95, 97, 98, 100, 102, 103, 105

Offset: 1

Author

Clark Kimberling, May 19 2017

Keywords

• nonn
• easy

Comments

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

Is this the union of {1} and A226720? - R. J. Mathar, May 21 2017

Examples

			As a word, A286987 = 1101101011010110110101..., in which 1 is in positions 1,2,4,5,7,9,....
		

Links

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

Crossrefs

Cf. A080764, A286987, A286988.

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