A286058 Positions of 1 in A285666; complement of A285667.

3, 5, 9, 13, 16, 20, 23, 27, 29, 33, 36, 40, 42, 46, 49, 53, 57, 60, 64, 66, 70, 73, 77, 81, 84, 88, 90, 94, 97, 101, 104, 108, 110, 114, 117, 121, 125, 128, 132, 134, 138, 141, 145, 148, 152, 154, 158, 161, 165, 169, 172, 176, 178, 182, 185, 189, 191, 195

Offset

1,1

Comments

Conjecture: a(n)/n)) -> 3.38... , and if m denotes this number, then -1 < 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" -> "010"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A285666 *)
Flatten[Position[st, 0]]  (* A285667 *)
Flatten[Position[st, 1]]  (* A286058 *)

Crossrefs

Cf. A285666, A285667.

Sequence in context: A018533 A187569 A181557 * A342474 A076052 A340377

Adjacent sequences: A286055 A286056 A286057 * A286059 A286060 A286061

Keyword

nonn,easy

Author

Clark Kimberling, Jun 05 2017

Extensions

Definition corrected by Georg Fischer, Jun 04 2020

Status

approved