|
%I #5 Jun 14 2017 18:18:04
%S 1,2,5,6,9,10,13,16,17,20,23,24,27,28,31,32,35,38,39,42,45,46,49,50,
%T 53,54,57,60,61,64,67,69,71,74,77,78,81,84,85,88,89,92,93,96,99,100,
%U 103,106,108,110,113,116,117,120,123,124,127,128,131,132,135,138
%N Positions of 0 in A288551; complement of A288553.
%C Conjecture: a(n)/n->2.34..., and if m denotes this number, then -1 < m - a(n)/n) < 2 for n >= 1.
%H Clark Kimberling, <a href="/A288552/b288552.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" -> "0101", "1" -> "011"}]
%t Table[w[n], {n, 0, 8}]
%t st = ToCharacterCode[w[10]] - 48 (* A288551 *)
%t Flatten[Position[st, 0]] (* A288552 *)
%t Flatten[Position[st, 1]] (* A288553 *)
%Y Cf. A288551, A288553, A288276.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, Jun 14 2017
|
