A287380 Positions of 1 in A287931; complement of A287379.

3, 5, 8, 12, 14, 18, 21, 24, 28, 31, 35, 37, 41, 43, 47, 50, 54, 56, 60, 63, 66, 70, 73, 76, 80, 83, 87, 89, 93, 96, 99, 103, 106, 110, 112, 116, 118, 122, 125, 129, 131, 135, 137, 141, 144, 148, 150, 154, 157, 160, 164, 167, 171, 173, 177, 179, 183, 186

Offset

1,1

Comments

Conjecture: a(n)/n-> 3.24..., 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: A100464 A114891 A285953 * A339389 A348236 A218485

Adjacent sequences: A287377 A287378 A287379 * A287381 A287382 A287383

Keyword

nonn,easy

Author

Clark Kimberling, Jun 07 2017

Status

approved