A288930 Positions of 0 in A288929; complement of A288931.

2, 3, 6, 9, 10, 15, 16, 19, 24, 25, 28, 31, 32, 39, 40, 43, 46, 47, 52, 53, 56, 63, 64, 67, 70, 71, 76, 77, 80, 85, 86, 89, 92, 93, 102, 103, 106, 109, 110, 115, 116, 119, 124, 125, 128, 131, 132, 139, 140, 143, 146, 147, 152, 153, 156, 165, 166, 169, 172

Offset

1,1

Comments

Conjecture: a(n)/n -> 3, and 0 < m - a(n)/n < 3/2 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" -> "1000", "1" -> "10011"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A288929 *)
Flatten[Position[st, 0]]  (* A288930 *)
Flatten[Position[st, 1]]  (* A288931 *)

Crossrefs

Cf. A288929, A288931.

Sequence in context: A089160 A214974 A286434 * A045588 A191178 A191127

Adjacent sequences: A288927 A288928 A288929 * A288931 A288932 A288933

Keyword

nonn,easy

Author

Clark Kimberling, Jun 25 2017

Status

approved