A285667 Positions of 0 in A285666; complement of A286058.

1, 2, 4, 6, 7, 8, 10, 11, 12, 14, 15, 17, 18, 19, 21, 22, 24, 25, 26, 28, 30, 31, 32, 34, 35, 37, 38, 39, 41, 43, 44, 45, 47, 48, 50, 51, 52, 54, 55, 56, 58, 59, 61, 62, 63, 65, 67, 68, 69, 71, 72, 74, 75, 76, 78, 79, 80, 82, 83, 85, 86, 87, 89, 91, 92, 93

Offset

1,2

Comments

Conjecture: a(n)/n)) -> 1.41... , 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, A286058.

Sequence in context: A075313 A183858 A135673 * A187568 A187228 A187905

Adjacent sequences: A285664 A285665 A285666 * A285668 A285669 A285670

Keyword

nonn,easy

Author

Clark Kimberling, Jun 05 2017

Extensions

Definition corrected by Georg Fischer, Jun 04 2020

Status

approved