A288169 Positions of 1 in A288167; complement of A288168.

3, 10, 14, 18, 25, 33, 41, 45, 49, 56, 60, 64, 72, 76, 80, 88, 96, 104, 108, 112, 119, 127, 135, 139, 143, 151, 159, 167, 171, 175, 183, 187, 191, 199, 203, 207, 215, 223, 231, 235, 239, 246, 250, 254, 262, 266, 270, 278, 286, 294, 298, 302, 310, 314, 318

Offset

1,1

Comments

Conjecture: -1 < 6 - 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" -> "0010", "1" -> "000"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A288167 *)
Flatten[Position[st, 0]]  (* A288168 *)
Flatten[Position[st, 1]]  (* A288169 *)

Crossrefs

Cf. A288167, A288169.

Sequence in context: A288993 A190706 A146309 * A283867 A085726 A287115

Adjacent sequences: A288166 A288167 A288168 * A288170 A288171 A288172

Keyword

nonn,easy

Author

Clark Kimberling, Jun 07 2017

Status

approved