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

0, 1, 2, 0, 2, 4, 6, 1, 4, 7, 0, 4, 8, 12, 2, 7, 12, 0, 6, 12, 18, 3, 10, 17, 0, 8, 16, 24, 4, 13, 22, 0, 10, 20, 30, 5, 16, 27, 38, 10, 22, 34, 4, 17, 30, 43, 10, 24, 38, 3, 18, 33, 48, 10, 26, 42, 2, 19, 36, 53, 10, 28, 46, 1, 20, 39, 58, 10, 30, 50, 0, 21, 42, 63, 10, 32

Offset

1,3

Links

Table of n, a(n) for n=1..76.

Mathematica

r = E; p[x_] := FractionalPart[x];
u[n_, k_] := If[p[k*r] <= p[n*r], 1, 0]
v[n_, k_] := If[p[k*r] > p[n*r], 1, 0]
s[n_] := Sum[u[n, k], {k, 1, n}]
t[n_] := Sum[v[n, k], {k, 1, n}]
Table[s[n], {n, 1, 100}]   (* A194750 *)
Table[t[n], {n, 1, 100}]   (* A194751 *)

Crossrefs

Cf. A194750, A194738.

Sequence in context: A078023 A077484 A182064 * A194739 A194765 A239229

Adjacent sequences: A194748 A194749 A194750 * A194752 A194753 A194754

Keyword

nonn

Author

Clark Kimberling, Sep 02 2011

Status

approved