cp's OEIS Frontend

A194749 Number of k such that {-k*sqrt(6)} > {-n*sqrt(6)}, where { } = fractional part.

%I A194749 #6 Mar 30 2012 18:57:44
%S A194749 0,1,0,2,0,3,0,4,0,5,10,4,10,3,10,2,10,1,10,19,8,18,6,17,4,16,2,15,0,
%T A194749 14,28,11,26,8,24,5,22,2,20,38,16,35,12,32,8,29,4,26,0,23,46,18,42,13,
%U A194749 38,8,34,3,30,57,24,52,18,47,12,42,6,37,0,32,64,25,58,18,52,11
%N A194749 Number of k such that {-k*sqrt(6)} > {-n*sqrt(6)}, where { } = fractional part.
%t A194749 r = -Sqrt[6]; p[x_] := FractionalPart[x];
%t A194749 u[n_, k_] := If[p[k*r] <= p[n*r], 1, 0]
%t A194749 v[n_, k_] := If[p[k*r] > p[n*r], 1, 0]
%t A194749 s[n_] := Sum[u[n, k], {k, 1, n}]
%t A194749 t[n_] := Sum[v[n, k], {k, 1, n}]
%t A194749 Table[s[n], {n, 1, 100}]   (* A194748 *)
%t A194749 Table[t[n], {n, 1, 100}]   (* A194749 *)
%Y A194749 Cf. A194748, A194738.
%K A194749 nonn
%O A194749 1,4
%A A194749 _Clark Kimberling_, Sep 02 2011