A288597 Positions of 0 in A288596; complement of A288598.

1, 3, 4, 5, 6, 8, 10, 12, 13, 14, 16, 17, 18, 20, 21, 22, 23, 25, 28, 29, 30, 31, 33, 36, 37, 38, 39, 41, 43, 45, 46, 47, 50, 51, 52, 53, 55, 57, 59, 60, 61, 64, 65, 66, 67, 69, 71, 73, 74, 75, 77, 78, 79, 81, 82, 83, 84, 86, 90, 91, 92, 93, 95, 97, 99, 100

Offset

1,2

Comments

Conjecture: a(n)/n->1.54..., 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" -> "0101", "1" -> "1000"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A288596 *)
Flatten[Position[st, 0]]  (* A288597 *)
Flatten[Position[st, 1]]  (* A288598 *)

Crossrefs

Cf. A288596, A288598.

Sequence in context: A163406 A092253 A073849 * A297997 A136497 A055563

Adjacent sequences: A288594 A288595 A288596 * A288598 A288599 A288600

Keyword

nonn,easy

Author

Clark Kimberling, Jun 14 2017

Status

approved