|
%I #6 Jun 18 2017 22:09:03
%S 3,4,10,12,15,16,22,23,27,33,37,40,42,45,46,52,53,59,61,64,65,69,73,
%T 76,77,83,84,88,92,95,96,100,106,107,113,117,120,122,125,126,132,133,
%U 139,141,144,145,151,152,156,162,166,169,171,174,175,179,183,186
%N Positions of 1 in A287382; complement of A287440.
%C Conjecture: a(n)/n -> 3.19..., and if m denotes this number, then -1 < m - a(n)/n) < 2 for n >= 1.
%H Clark Kimberling, <a href="/A287448/b287448.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" -> "001"}]
%t Table[w[n], {n, 0, 8}]
%t st = ToCharacterCode[w[23]] - 48 (* A287382 *)
%t Flatten[Position[st, 0]] (* A287440 *)
%t Flatten[Position[st, 1]] (* A287448 *)
%Y Cf. A287382, A287440.
%K nonn,easy
%O 1,1
%A _Clark Kimberling_, Jun 18 2017
|
