A285352 Positions of 0 in A284932; complement of A285303.

1, 2, 5, 7, 8, 10, 11, 12, 15, 16, 17, 19, 21, 23, 24, 25, 27, 29, 30, 32, 33, 35, 36, 37, 39, 41, 42, 44, 45, 46, 49, 50, 51, 54, 55, 56, 58, 60, 61, 63, 64, 65, 68, 69, 70, 72, 74, 76, 77, 78, 80, 82, 84, 85, 86, 88, 90, 91, 93, 94, 95, 98, 99, 100, 102

Offset

1,2

Comments

Conjecture : lim a(n)/n)) = 0.55... , 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" -> "10"}]
Table[w[n], {n, 0, 8}]
st = ToCharacterCode[w[11]] - 48   (* A284932 *)
Flatten[Position[st, 0]]  (* A285352 *)
Flatten[Position[st, 1]]  (* A285303 *)
Table[StringLength[w[n]], {n, 1, 35}] (* A286938 *)

Crossrefs

Cf. A284932, A285303, A286938.

Sequence in context: A284529 A191767 A050086 * A233745 A283778 A028782

Adjacent sequences: A285349 A285350 A285351 * A285353 A285354 A285355

Keyword

nonn,easy

Author

Clark Kimberling, Jun 03 2017

Status

approved