|
%I #13 Apr 10 2021 23:59:19
%S 1,2,3,4,5,6,7,1,3,5,7,9,11,13,1,4,7,10,13,16,19,1,5,9,13,17,21,25,1,
%T 6,11,16,21,26,31,1,7,13,19,25,31,37,1,8,15,22,29,36,43,1,9,17,25,33,
%U 41,49,1,10,19,28,37,46,55,1,11,21,31,41,51,61,1,12,23,34,45,56
%N Number of integers k in 1..n such that {k*Pi} < {n*Pi}, where { } = fractional part.
%t r = Pi; p[x_] := FractionalPart[x];
%t u[n_, k_] := If[p[k*r] <= p[n*r], 1, 0]
%t v[n_, k_] := If[p[k*r] > p[n*r], 1, 0]
%t s[n_] := Sum[u[n, k], {k, 1, n}]
%t t[n_] := Sum[v[n, k], {k, 1, n}]
%t Table[s[n], {n, 1, 100}] (* A194754 *)
%t Table[t[n], {n, 1, 100}] (* A194755 *)
%Y Cf. A194755, A194738.
%K nonn
%O 1,2
%A _Clark Kimberling_, Sep 02 2011
%E Name clarified by _Jon E. Schoenfield_, Apr 10 2021
|
