A288378 Positions of 0 in A288377; complement of A288379.

1, 2, 3, 5, 7, 8, 10, 11, 12, 13, 16, 17, 18, 19, 21, 22, 23, 26, 28, 29, 30, 31, 33, 34, 35, 38, 39, 40, 41, 43, 45, 47, 48, 50, 51, 52, 53, 55, 56, 57, 60, 61, 62, 63, 65, 67, 69, 70, 71, 72, 74, 75, 76, 79, 80, 82, 83, 85, 86, 87, 88, 91, 92, 93, 94, 96

Offset

1,2

Comments

Conjecture: a(n)/n-> 1.46..., and if m denotes this number, then -1 < m - a(n)/n < 1 for n >= 1.

Links

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

Mathematica

s = {0, 0}; w[0] = StringJoin[Map[ToString, s]];
w[n_] := StringReplace[w[n - 1], {"00" -> "0001", "1" -> "10"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A288377 *)
Flatten[Position[st, 0]]  (* A288378 *)
Flatten[Position[st, 1]]  (* A288379 *)

Crossrefs

Cf. A288377, A288379.

Sequence in context: A028788 A197128 A034707 * A187909 A156247 A232532

Adjacent sequences: A288375 A288376 A288377 * A288379 A288380 A288381

Keyword

nonn,easy

Author

Clark Kimberling, Jun 09 2017

Status

approved