login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A285667
Positions of 0 in A285666; complement of A286058.
3
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: lim_{n->oo} a(n)/n = 1.41..., and if m denotes this number, then -1 < a(n)/n - m < 1 for n >= 1.
LINKS
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
Sequence in context: A075313 A183858 A135673 * A187568 A187228 A187905
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Jun 05 2017
EXTENSIONS
Definition corrected by Georg Fischer, Jun 04 2020
STATUS
approved