A287379 Positions of 0 in A287931; complement of A287380.

1, 2, 4, 6, 7, 9, 10, 11, 13, 15, 16, 17, 19, 20, 22, 23, 25, 26, 27, 29, 30, 32, 33, 34, 36, 38, 39, 40, 42, 44, 45, 46, 48, 49, 51, 52, 53, 55, 57, 58, 59, 61, 62, 64, 65, 67, 68, 69, 71, 72, 74, 75, 77, 78, 79, 81, 82, 84, 85, 86, 88, 90, 91, 92, 94, 95

Offset

1,2

Comments

Conjecture: a(n)/n-> 1.44..., 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" -> "0010", "1" -> "10"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A287931 *)
Flatten[Position[st, 0]]  (* A287379 *)
Flatten[Position[st, 1]]  (* A287380 *)

Crossrefs

Cf. A287931, A287380.

Sequence in context: A358768 A186493 A289072 * A285954 A342778 A289075

Adjacent sequences: A287376 A287377 A287378 * A287380 A287381 A287382

Keyword

nonn,easy

Author

Clark Kimberling, Jun 07 2017

Status

approved