A288928 Positions of 1 in A288926; complement of A288927.

1, 6, 10, 11, 15, 19, 23, 27, 28, 35, 36, 40, 44, 45, 49, 54, 58, 59, 63, 68, 72, 73, 77, 82, 86, 87, 94, 95, 99, 103, 104, 111, 112, 120, 121, 125, 129, 130, 134, 139, 143, 144, 151, 152, 156, 160, 161, 165, 170, 174, 175, 179, 183, 187, 191, 192, 199, 200

Offset

1,2

Comments

Conjecture: a(n)/n -> 3.52..., and if m denotes this number, then -1 < m - a(n)/n < 3 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", "10" -> "0001"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[53]] - 48   (* A288926 *)
Flatten[Position[st, 0]]  (* A288927 *)
Flatten[Position[st, 1]]  (* A288928 *)

Crossrefs

Cf. A288926, A288927.

Sequence in context: A206036 A349761 A132628 * A039509 A277597 A068442

Adjacent sequences: A288925 A288926 A288927 * A288929 A288930 A288931

Keyword

nonn,easy

Author

Clark Kimberling, Jun 25 2017

Status

approved