A288225 Positions of 1 in A288223; complement of A288224.

2, 4, 10, 12, 17, 21, 24, 26, 32, 35, 37, 41, 46, 48, 53, 57, 60, 62, 67, 69, 75, 79, 82, 84, 88, 93, 96, 98, 104, 106, 111, 115, 118, 120, 126, 129, 131, 135, 140, 143, 145, 151, 153, 158, 162, 165, 167, 171, 176, 180, 183, 185, 190, 192, 198, 200, 205, 209

Offset

1,1

Comments

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

Crossrefs

Cf. A288223, A288224.

Sequence in context: A113536 A081887 A085344 * A047463 A107059 A160716

Adjacent sequences: A288222 A288223 A288224 * A288226 A288227 A288228

Keyword

nonn,easy

Author

Clark Kimberling, Jun 22 2017

Status

approved