cp's OEIS Frontend

A194759 Number of k such that {k*log(2)} > {n*log(2)}, where { } = fractional part.

%I A194759 #5 Mar 30 2012 18:57:44
%S A194759 0,1,2,0,2,4,0,3,6,0,4,8,12,3,8,13,2,8,14,1,8,15,0,8,16,24,6,15,24,4,
%T A194759 14,24,2,13,24,0,12,24,36,9,22,35,6,20,34,3,18,33,0,16,32,48,12,29,46,
%U A194759 8,26,44,4,23,42,0,20,40,60,15,36,57,10,32,54,5,28,51,0,24,48
%N A194759 Number of k such that {k*log(2)} > {n*log(2)}, where { } = fractional part.
%t A194759 r = Log[2]; p[x_] := FractionalPart[x];
%t A194759 u[n_, k_] := If[p[k*r] <= p[n*r], 1, 0]
%t A194759 v[n_, k_] := If[p[k*r] > p[n*r], 1, 0]
%t A194759 s[n_] := Sum[u[n, k], {k, 1, n}]
%t A194759 t[n_] := Sum[v[n, k], {k, 1, n}]
%t A194759 Table[s[n], {n, 1, 100}]   (* A194758 *)
%t A194759 Table[t[n], {n, 1, 100}]   (* A194759 *)
%Y A194759 Cf. A194758, A194738.
%K A194759 nonn
%O A194759 1,3
%A A194759 _Clark Kimberling_, Sep 02 2011