|
%I #4 Jun 25 2017 13:53:36
%S 1,6,10,11,15,19,23,27,28,35,36,40,44,45,49,54,58,59,63,68,72,73,77,
%T 82,86,87,94,95,99,103,104,111,112,120,121,125,129,130,134,139,143,
%U 144,151,152,156,160,161,165,170,174,175,179,183,187,191,192,199,200
%N Positions of 1 in A288926; complement of A288927.
%C Conjecture: a(n)/n -> 3.52..., and if m denotes this number, then -1 < m - a(n)/n < 3 for n >= 1.
%H Clark Kimberling, <a href="/A288928/b288928.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", "10" -> "0001"}]
%t Table[w[n], {n, 0, 8}]
%t st = ToCharacterCode[w[53]] - 48 (* A288926 *)
%t Flatten[Position[st, 0]] (* A288927 *)
%t Flatten[Position[st, 1]] (* A288928 *)
%Y Cf. A288926, A288927.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, Jun 25 2017
|
