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

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, 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, 28, 13, 54, 38, 22, 6, 50, 33, 16, 62, 44, 26, 8, 57, 38, 19, 70, 50, 30, 10, 64

Offset

1,4

Links

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

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}]   (* A194752 *)
Table[t[n], {n, 1, 100}]   (* A194753 *)

Crossrefs

Cf. A194752.

Sequence in context: A051427 A194763 A194741 * A359400 A323908 A098825

Adjacent sequences: A194750 A194751 A194752 * A194754 A194755 A194756

Keyword

nonn

Author

Clark Kimberling, Sep 02 2011

Status

approved