A288205 Positions of 1 in A288203; complement of A288204.

3, 6, 10, 13, 17, 21, 25, 28, 32, 36, 40, 44, 48, 52, 56, 59, 63, 67, 71, 75, 79, 83, 87, 91, 95, 99, 103, 107, 111, 115, 119, 122, 126, 130, 134, 138, 142, 146, 150, 154, 158, 162, 166, 170, 174, 178, 182, 186, 190, 194, 198, 202, 206, 210, 214, 218, 222

Offset

1,1

Comments

0 < 4 - a(n)/n < 1 for n >= 1.

Links

Clark Kimberling, Table of n, a(n) for n = 1..10000

Formula

a(n) = Sum_{k=1..n} 4 - A036987(k) (conjecture). - Jon Maiga, Nov 25 2018

Mathematica

s = {0, 0}; w[0] = StringJoin[Map[ToString, s]];
w[n_] := StringReplace[w[n - 1], {"00" -> "0010", "1" -> "010"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A288203 *)
Flatten[Position[st, 0]]  (* A288204 *)
Flatten[Position[st, 1]]  (* A288205 *)

Crossrefs

Cf. A288203, A288204, A036987.

Sequence in context: A356086 A310056 A189524 * A049880 A276219 A267593

Adjacent sequences: A288202 A288203 A288204 * A288206 A288207 A288208

Keyword

nonn,easy

Author

Clark Kimberling, Jun 07 2017

Status

approved