A288510 Positions of 1 in A288508; complement of A288509.

4, 7, 9, 11, 14, 16, 18, 21, 25, 29, 31, 33, 36, 40, 44, 46, 48, 51, 54, 57, 61, 64, 67, 71, 75, 79, 81, 83, 86, 89, 92, 96, 99, 102, 106, 110, 114, 116, 118, 121, 123, 125, 128, 130, 132, 135, 138, 141, 145, 147, 149, 152, 154, 156, 159, 162, 165, 169, 172

Offset

1,1

Comments

Conjecture: a(n)/n -> 2.91..., 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" -> "0101", "10" -> "001"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[18]] - 48   (* A288508 *)
Flatten[Position[st, 0]]  (* A288509 *)
Flatten[Position[st, 1]]  (* A288510 *)

Crossrefs

Cf. A288508, A288510.

Sequence in context: A310945 A310946 A265140 * A233473 A109180 A025054

Adjacent sequences: A288507 A288508 A288509 * A288511 A288512 A288513

Keyword

nonn,easy

Author

Clark Kimberling, Jun 12 2017

Status

approved