A287519 Positions of 0 in A287457; complement of A287186.

2, 3, 4, 5, 6, 7, 8, 10, 11, 12, 13, 14, 15, 17, 18, 19, 20, 21, 22, 24, 25, 26, 28, 29, 30, 31, 32, 33, 34, 36, 37, 38, 39, 40, 41, 43, 44, 45, 47, 48, 49, 51, 52, 53, 54, 55, 56, 58, 59, 60, 61, 62, 63, 65, 66, 67, 69, 70, 71, 73, 74, 75, 76, 77, 78, 80

Offset

1,1

Comments

Conjecture: a(n)/n -> 1.20..., 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" -> "000"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[23]] - 48   (* A287457 *)
Flatten[Position[st, 0]]  (* A287519 *)
Flatten[Position[st, 1]]  (* A287186 *)

Crossrefs

Cf. A287457, A287186.

Sequence in context: A004745 A158037 A332109 * A307646 A246786 A095949

Adjacent sequences: A287516 A287517 A287518 * A287520 A287521 A287522

Keyword

nonn,easy

Author

Clark Kimberling, Jun 17 2017

Status

approved