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,4

Links

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

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 *)

Crossrefs

Cf. A194760, A194738.

Sequence in context: A102189 A031252 A208152 * A129674 A120771 A115094

Adjacent sequences: A194758 A194759 A194760 * A194762 A194763 A194764

Keyword

nonn

Author

Clark Kimberling, Sep 02 2011

Status

approved