|
%I #9 Jun 07 2018 06:43:21
%S 0,1,0,2,0,3,6,2,6,1,6,11,4,10,2,9,0,8,16,5,14,2,12,22,8,19,4,16,0,13,
%T 26,8,22,3,18,33,12,28,6,23,40,16,34,9,28,2,22,42,14,35,6,28,50,19,42,
%U 10,34,1,26,51,16,42,6,33,60,22,50,11,40,69,28,58,16,47,4,36
%N Number of k such that {-k*sqrt(2)} > {-n*sqrt(2)}, where { } = fractional part.
%H G. C. Greubel, <a href="/A194737/b194737.txt">Table of n, a(n) for n = 1..5000</a>
%t r = -Sqrt[2]; 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}] (* A194736 *)
%t Table[t[n], {n, 1, 100}] (* A194737 *)
%Y Cf. A194736, A194738.
%K nonn
%O 1,4
%A _Clark Kimberling_, Sep 02 2011
|
