A286061 Positions of 1 in A286059; complement of A286060.

3, 5, 6, 9, 10, 12, 13, 16, 18, 19, 21, 22, 25, 26, 28, 29, 32, 34, 35, 38, 39, 41, 42, 45, 46, 48, 49, 52, 54, 55, 57, 58, 61, 62, 64, 65, 68, 70, 71, 74, 75, 77, 78, 81, 83, 84, 86, 87, 90, 91, 93, 94, 97, 99, 100, 102, 103, 106, 107, 109, 110, 113, 115

Offset

1,1

Comments

Conjecture: a(n)/n)) -> 1.80..., and if m denotes this number, then -2 < a(n)/n - m < 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" -> "001", "1" -> "011"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A286059 *)
Flatten[Position[st, 0]]  (* A286060 *)
Flatten[Position[st, 1]]  (* A286061 *)
Table[StringLength[w[n]], {n, 1, 35}] (* A286062 conjectured *)

Crossrefs

Cf. A286059, A286060.

Sequence in context: A128291 A304434 A334133 * A288308 A187574 A187833

Adjacent sequences: A286058 A286059 A286060 * A286062 A286063 A286064

Keyword

nonn,easy

Author

Clark Kimberling, Jun 05 2017

Status

approved