A288696 Positions of 1 in A288694; complement of A288695.

2, 3, 7, 8, 10, 11, 14, 15, 19, 20, 24, 25, 27, 28, 32, 33, 35, 36, 39, 40, 44, 45, 47, 48, 51, 52, 56, 57, 61, 62, 64, 65, 68, 69, 73, 74, 78, 79, 81, 82, 86, 87, 89, 90, 93, 94, 98, 99, 103, 104, 106, 107, 111, 112, 114, 115

Offset

1,1

Comments

Conjecture: a(n)/n ->2.07..., 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" -> "0110", "10" -> "100"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A288694 *)
Flatten[Position[st, 0]]  (* A288695 *)
Flatten[Position[st, 1]]  (* A288696 *)
Table[StringLength[w[n]], {n, 1, 35}]

Crossrefs

Cf. A288694, A288695.

Sequence in context: A115985 A131210 A088340 * A163517 A047532 A225378

Adjacent sequences: A288693 A288694 A288695 * A288697 A288698 A288699

Keyword

nonn,easy

Author

Clark Kimberling, Jun 16 2017

Status

approved