A288222 - OEIS

%I #9 Jun 25 2017 15:08:06

%S 1,6,10,13,15,20,22,28,32,35,37,41,46,49,51,57,59,64,68,71,73,78,80,

%T 86,88,93,97,100,102,108,111,113,117,122,126,129,131,135,140,143,145,

%U 151,153,158,162,165,167,171,176,180,183,185,190,192,198,201,203

%N Positions of 1 in A288220; complement of A288221.

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

%H Clark Kimberling, <a href="/A288222/b288222.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" -> "010"}]

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

%t st = ToCharacterCode[w[22]] - 48   (* A288220 *)

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

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

%Y Cf. A288220, A288221.

%K nonn,easy

%O 1,2

%A _Clark Kimberling_, Jun 19 2017