cp's OEIS Frontend

A194760 Number of k such that {-k*log(2)} < {-n*log(2)}, where { } = fractional part.

%I A194760 #5 Mar 30 2012 18:57:44
%S A194760 1,2,3,1,3,5,1,4,7,1,5,9,13,4,9,14,3,9,15,2,9,16,1,9,17,25,7,16,25,5,
%T A194760 15,25,3,14,25,1,13,25,37,10,23,36,7,21,35,4,19,34,1,17,33,49,13,30,
%U A194760 47,9,27,45,5,24,43,1,21,41,61,16,37,58,11,33,55,6,29,52,1,25,49
%N A194760 Number of k such that {-k*log(2)} < {-n*log(2)}, where { } = fractional part.
%t A194760 r = -Log[2]; p[x_] := FractionalPart[x];
%t A194760 u[n_, k_] := If[p[k*r] <= p[n*r], 1, 0]
%t A194760 v[n_, k_] := If[p[k*r] > p[n*r], 1, 0]
%t A194760 s[n_] := Sum[u[n, k], {k, 1, n}]
%t A194760 t[n_] := Sum[v[n, k], {k, 1, n}]
%t A194760 Table[s[n], {n, 1, 100}]   (* A194760 *)
%t A194760 Table[t[n], {n, 1, 100}]   (* A194761 *)
%Y A194760 Cf. A194761.
%K A194760 nonn
%O A194760 1,2
%A A194760 _Clark Kimberling_, Sep 02 2011