|
%I #4 Jun 25 2017 23:01:13
%S 1,3,5,6,8,10,11,12,14,16,17,19,21,22,23,24,26,28,29,31,33,34,35,37,
%T 39,40,42,44,45,46,47,48,50,52,53,55,57,58,59,61,63,64,66,68,69,70,71,
%U 73,75,76,78,80,81,82,84,86,87,89,91,92,93,94,95,96,98,100
%N Positions of 1 in A288932; complement of A288933.
%C Conjecture: a(n)/n -> 3/2, and -2/3 < 3/2 - a(n)/n < 1/2 for n >= 1.
%H Clark Kimberling, <a href="/A288934/b288934.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" -> "1000", "1" -> "10101"}]
%t Table[w[n], {n, 0, 8}]
%t st = ToCharacterCode[w[11]] - 48 (* A288932 *)
%t Flatten[Position[st, 0]] (* A288933 *)
%t Flatten[Position[st, 1]] (* A288934 *)
%Y Cf. A288932, A288933.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, Jun 25 2017
|
