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,2

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

Links

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

Example

As a word, A286987 = 1101101011010110110101..., in which 1 is in positions 1,2,4,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, {"111" -> "1"}]
st = ToCharacterCode[w1] - 48 ; (* A286987 *)
Flatten[Position[st, 0]];  (* A286988 *)
Flatten[Position[st, 1]];  (* A286989 *)

Crossrefs

Cf. A080764, A286987, A286988.

Sequence in context: A004956 A026351 A184656 * A226720 A047212 A358845

Adjacent sequences: A286986 A286987 A286988 * A286990 A286991 A286992

Keyword

nonn,easy

Author

Clark Kimberling, May 19 2017

Status

approved