|
%I #5 Mar 30 2012 18:57:40
%S 0,0,0,1,3,6,9,12,16,20,25,31,37,44,51,59,67,76,85,95,105,116,127,139,
%T 151,163,176,189,203,218,233,248,264,280,297,315,333,351,369,388,407,
%U 427,448,469,490,512,535,558,582,606,631,656,682,708,735,762,790
%N Partial sums of A194198.
%t r = Sqrt[10];
%t a[n_] := Floor[Sum[FractionalPart[k*r], {k, 1, n}]]
%t Table[a[n], {n, 1, 90}] (* A194198 *)
%t s[n_] := Sum[a[k], {k, 1, n}]
%t Table[s[n], {n, 1, 100}] (* A194199 *)
%Y Cf. A194198.
%K nonn
%O 1,5
%A _Clark Kimberling_, Aug 19 2011
|
