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

0, 0, 0, 3, 2, 1, 6, 4, 2, 9, 6, 3, 0, 10, 6, 2, 14, 9, 4, 18, 12, 6, 22, 15, 8, 1, 20, 12, 4, 25, 16, 7, 30, 20, 10, 35, 24, 13, 2, 30, 18, 6, 36, 23, 10, 42, 28, 14, 48, 33, 18, 3, 40, 24, 8, 47, 30, 13, 54, 36, 18, 61, 42, 23, 4, 50, 30, 10, 58, 37, 16, 66, 44, 22, 74

Offset: 1

Author

Clark Kimberling, Sep 02 2011

Keywords

• nonn

Crossrefs

Cf. A194760, A194738.

Programs

Mathematica

r = -Log[2]; 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}]   (* A194760 *)
Table[t[n], {n, 1, 100}]   (* A194761 *)