A288695 Positions of 0 in A288694; complement of A288696.

1, 4, 5, 6, 9, 12, 13, 16, 17, 18, 21, 22, 23, 26, 29, 30, 31, 34, 37, 38, 41, 42, 43, 46, 49, 50, 53, 54, 55, 58, 59, 60, 63, 66, 67, 70, 71, 72, 75, 76, 77, 80, 83, 84, 85, 88, 91, 92, 95, 96, 97, 100, 101, 102, 105, 108, 109, 110, 113, 116, 117

Offset

1,2

Comments

Conjecture: a(n)/n ->1.93..., 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, A288696.

Sequence in context: A072496 A306482 A047431 * A182719 A003156 A192360

Adjacent sequences: A288692 A288693 A288694 * A288696 A288697 A288698

Keyword

nonn,easy

Author

Clark Kimberling, Jun 16 2017

Status

approved