cp's OEIS Frontend

A194753 Number of k such that {-k*e} > {-n*e}, where { } = fractional part.

%I A194753 #5 Mar 30 2012 18:57:44
%S A194753 0,0,0,3,2,1,0,6,4,2,10,7,4,1,12,8,4,17,12,7,2,18,12,6,24,17,10,3,24,
%T A194753 16,8,31,22,13,4,30,20,10,0,29,18,7,38,26,14,2,36,23,10,46,32,18,4,43,
%U A194753 28,13,54,38,22,6,50,33,16,62,44,26,8,57,38,19,70,50,30,10,64
%N A194753 Number of k such that {-k*e} > {-n*e}, where { } = fractional part.
%t A194753 r = -E; p[x_] := FractionalPart[x];
%t A194753 u[n_, k_] := If[p[k*r] <= p[n*r], 1, 0]
%t A194753 v[n_, k_] := If[p[k*r] > p[n*r], 1, 0]
%t A194753 s[n_] := Sum[u[n, k], {k, 1, n}]
%t A194753 t[n_] := Sum[v[n, k], {k, 1, n}]
%t A194753 Table[s[n], {n, 1, 100}]   (* A194752 *)
%t A194753 Table[t[n], {n, 1, 100}]   (* A194753 *)
%Y A194753 Cf. A194752.
%K A194753 nonn
%O A194753 1,4
%A A194753 _Clark Kimberling_, Sep 02 2011