|
%I #15 Aug 06 2017 14:06:52
%S 2,4,5,10,12,13,15,16,18,19,24,26,27,32,34,35,37,38,40,41,43,44,46,47,
%T 52,54,55,60,62,63,65,66,68,69,74,76,77,82,84,85,87,88,90,91,93,94,96,
%U 97,99,100,102,103,108,110,111,116,118,119,121,122,124,125
%N Positions of 1 in A288741; complement of A288742.
%C Conjecture: a(n)/n -> 2, and -1/2 < 2 - a(n)/n < 1/3 for n >= 1.
%H Clark Kimberling, <a href="/A285697/b285697.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" -> "01"}]
%t Table[w[n], {n, 0, 8}]
%t st = ToCharacterCode[w[23]] - 48 (* A288741 *)
%t Flatten[Position[st, 0]] (* A288742 *)
%t Flatten[Position[st, 1]] (* A285697 *)
%Y Cf. A288741, A288742.
%K nonn,easy
%O 1,1
%A _Clark Kimberling_, Jun 17 2017
%E Typo in definition corrected by _Felix Fröhlich_, Aug 06 2017
|
