%I #4 Jun 04 2017 18:17:53
%S 1,2,5,7,8,10,11,12,15,16,17,19,21,23,24,25,27,29,30,32,33,35,36,37,
%T 39,41,42,44,45,46,49,50,51,54,55,56,58,60,61,63,64,65,68,69,70,72,74,
%U 76,77,78,80,82,84,85,86,88,90,91,93,94,95,98,99,100,102
%N Positions of 0 in A284932; complement of A285303.
%C Conjecture : lim a(n)/n)) = 0.55... , and if m denotes this number, then -1 < a(n)/n - m < 1 for n >= 1.
%H Clark Kimberling, <a href="/A285352/b285352.txt">Table of n, a(n) for n = 1..10000</a>
%t s = {0, 0}; w[0] = StringJoin[Map[ToString, s]];
%t w[n_] := StringReplace[w[n - 1], {"00" -> "001", "1" -> "10"}]
%t Table[w[n], {n, 0, 8}]
%t st = ToCharacterCode[w[11]] - 48 (* A284932 *)
%t Flatten[Position[st, 0]] (* A285352 *)
%t Flatten[Position[st, 1]] (* A285303 *)
%t Table[StringLength[w[n]], {n, 1, 35}] (* A286938 *)
%Y Cf. A284932, A285303, A286938.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, Jun 03 2017