A288509 Positions of 0 in A288508; complement of A288510.

1, 2, 3, 5, 6, 8, 10, 12, 13, 15, 17, 19, 20, 22, 23, 24, 26, 27, 28, 30, 32, 34, 35, 37, 38, 39, 41, 42, 43, 45, 47, 49, 50, 52, 53, 55, 56, 58, 59, 60, 62, 63, 65, 66, 68, 69, 70, 72, 73, 74, 76, 77, 78, 80, 82, 84, 85, 87, 88, 90, 91, 93, 94, 95, 97, 98

Offset

1,2

Comments

Conjecture: a(n)/n -> 1.52..., 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: A307113 A341157 A025055 * A283295 A366968 A080276

Adjacent sequences: A288506 A288507 A288508 * A288510 A288511 A288512

Keyword

nonn,easy

Author

Clark Kimberling, Jun 12 2017

Status

approved