A286994 Positions of 0 in A286993; complement of A286995.

3, 4, 5, 8, 9, 10, 12, 13, 14, 17, 18, 19, 21, 22, 23, 26, 27, 28, 31, 32, 33, 35, 36, 37, 40, 41, 42, 44, 45, 46, 49, 50, 51, 54, 55, 56, 58, 59, 60, 63, 64, 65, 67, 68, 69, 72, 73, 74, 76, 77, 78, 81, 82, 83, 86, 87, 88, 90, 91, 92, 95, 96, 97, 99, 100

Offset

1,1

Comments

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

Links

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

Example

As a word, A286993 = 11000110001000110..., in which 0 is in positions 3,4,5,8,9,...

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, A286995.

Sequence in context: A274231 A173999 A127427 * A047205 A283765 A120631

Adjacent sequences: A286991 A286992 A286993 * A286995 A286996 A286997

Keyword

nonn,easy

Author

Clark Kimberling, May 19 2017

Status

approved