login
Positions of 0 in A284932; complement of A285303.
7

%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