A288222 Positions of 1 in A288220; complement of A288221.

1, 6, 10, 13, 15, 20, 22, 28, 32, 35, 37, 41, 46, 49, 51, 57, 59, 64, 68, 71, 73, 78, 80, 86, 88, 93, 97, 100, 102, 108, 111, 113, 117, 122, 126, 129, 131, 135, 140, 143, 145, 151, 153, 158, 162, 165, 167, 171, 176, 180, 183, 185, 190, 192, 198, 201, 203

Offset

1,2

Comments

Conjecture: a(n)/n -> 3.61..., and if m denotes this number, then 0 < m - a(n)/n < 0 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[22]] - 48   (* A288220 *)
Flatten[Position[st, 0]]  (* A288221 *)
Flatten[Position[st, 1]]  (* A288222 *)

Crossrefs

Cf. A288220, A288221.

Sequence in context: A213428 A006187 A346958 * A004234 A121149 A315140

Adjacent sequences: A288219 A288220 A288221 * A288223 A288224 A288225

Keyword

nonn,easy

Author

Clark Kimberling, Jun 19 2017

Status

approved