A286995 Positions of 1 in A286993; complement of A286994.

1, 2, 6, 7, 11, 15, 16, 20, 24, 25, 29, 30, 34, 38, 39, 43, 47, 48, 52, 53, 57, 61, 62, 66, 70, 71, 75, 79, 80, 84, 85, 89, 93, 94, 98, 102, 103, 107, 108, 112, 116, 117, 121, 125, 126, 130, 134, 135, 139, 140, 144, 148, 149, 153, 157, 158, 162, 163, 167

Offset

1,2

Comments

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

Links

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

Example

As a word, A286993 = 11000110001000110..., in which 1 is in positions 1,2,6,7,11,....

Mathematica

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

Crossrefs

Cf. A080764, A286993, A286994.

Sequence in context: A039568 A032926 A214991 * A088227 A231500 A174000

Adjacent sequences: A286992 A286993 A286994 * A286996 A286997 A286998

Keyword

nonn,easy

Author

Clark Kimberling, May 19 2017

Status

approved