A288218 Positions of 1 in A288216; complement of A288217.

3, 6, 8, 12, 17, 20, 22, 28, 30, 35, 39, 42, 44, 48, 53, 57, 60, 62, 67, 69, 75, 78, 80, 86, 88, 93, 97, 100, 102, 108, 111, 113, 117, 122, 124, 129, 133, 136, 138, 143, 145, 151, 155, 158, 160, 164, 169, 172, 174, 180, 182, 187, 191, 194, 196, 200, 205, 209

Offset

1,1

Comments

Conjecture: a(n)/n -> 3.61..., and if m denotes this number, then 0 < 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" -> "1000", "10" -> "010"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[21]] - 48   (* A288216 *)
Flatten[Position[st, 0]]  (* A288217 *)
Flatten[Position[st, 1]]  (* A288218 *)

Crossrefs

Cf. A288216, A288217.

Sequence in context: A350619 A341435 A301283 * A212984 A006048 A245989

Adjacent sequences: A288215 A288216 A288217 * A288219 A288220 A288221

Keyword

nonn,easy

Author

Clark Kimberling, Jun 19 2017

Status

approved