A285432 Positions of 0 in A286939; complement of A285564.

1, 2, 4, 5, 6, 7, 8, 10, 11, 13, 14, 15, 16, 17, 18, 20, 21, 22, 23, 24, 26, 27, 29, 30, 32, 33, 34, 35, 36, 38, 39, 41, 42, 43, 44, 45, 46, 48, 49, 50, 51, 52, 54, 55, 56, 57, 58, 60, 61, 63, 64, 65, 66, 67, 68, 70, 71, 72, 73, 74, 76, 77, 79, 80, 82, 83

Offset

1,2

Comments

Conjecture : lim a(n)/n)) = 1.25... , 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" -> "000"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A286939 *)
Flatten[Position[st, 0]]  (* A285432 *)
Flatten[Position[st, 1]]  (* A285564 *)
Table[StringLength[w[n]], {n, 1, 35}] (* A285665 conjectured *)

Crossrefs

Cf. A286939, A285564, A285665.

Sequence in context: A193928 A146215 A086743 * A039079 A260375 A361144

Adjacent sequences: A285429 A285430 A285431 * A285433 A285434 A285435

Keyword

nonn,easy

Author

Clark Kimberling, Jun 04 2017

Status

approved