A288598 - OEIS

%I #6 Jun 14 2017 18:18:39

%S 2,7,9,11,15,19,24,26,27,32,34,35,40,42,44,48,49,54,56,58,62,63,68,70,

%T 72,76,80,85,87,88,89,94,96,98,102,106,111,113,114,115,120,122,124,

%U 128,132,137,139,140,145,147,148,153,155,157,161,162,163,168,170

%N Positions of 1 in A288596; complement of A288597.

%C Conjecture:  a(n)/n->2.83..., and if m denotes this number, then -1 < m - a(n)/n) < 1 for n >= 1.

%H Clark Kimberling, <a href="/A288598/b288598.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" -> "1000"}]

%t Table[w[n], {n, 0, 8}]

%t st = ToCharacterCode[w[11]] - 48   (* A288596 *)

%t Flatten[Position[st, 0]]  (* A288597 *)

%t Flatten[Position[st, 1]]  (* A288598 *)

%Y Cf. A288596, A288597.

%K nonn,easy

%O 1,1

%A _Clark Kimberling_, Jun 14 2017