A288634 Positions of 0 in A288633; complement of A288635.

1, 3, 4, 7, 9, 11, 12, 14, 15, 17, 18, 21, 23, 24, 27, 29, 30, 33, 35, 37, 38, 40, 41, 44, 46, 48, 49, 51, 52, 55, 57, 59, 60, 62, 63, 65, 66, 69, 71, 72, 75, 77, 79, 80, 82, 83, 85, 86, 89, 91, 92, 95, 97, 99, 100, 102, 103, 105, 106, 109, 111, 112, 115

Offset

1,2

Comments

Conjecture: a(n)/n->1.83..., 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", "1" -> "10"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[10]] - 48   (* A288633 *)
Flatten[Position[st, 0]]  (* A288634 *)
Flatten[Position[st, 1]]  (* A288635 *)

Crossrefs

Cf. A288633, A288635.

Sequence in context: A115104 A095043 A019990 * A284776 A047544 A272909

Adjacent sequences: A288631 A288632 A288633 * A288635 A288636 A288637

Keyword

nonn,easy

Author

Clark Kimberling, Jun 15 2017

Status

approved