|
%I #5 Mar 30 2012 18:57:40
%S 0,0,0,1,3,6,9,12,15,18,22,27,33,39,45,51,57,64,72,81,90,99,108,117,
%T 127,138,150,162,174,186,198,211,225,240,255,270,285,300,316,333,351,
%U 369,387,405,423,442,462,483,504,525,546,567,589,612,636,660,684
%N Partial sums of A194225.
%t r = 1/7;
%t a[n_] := Floor[Sum[FractionalPart[k*r], {k, 1, n}]]
%t Table[a[n], {n, 1, 90}] (* A194225 *)
%t s[n_] := Sum[a[k], {k, 1, n}]
%t Table[s[n], {n, 1, 100}] (* A194226 *)
%Y Cf. A194225.
%K nonn
%O 1,5
%A _Clark Kimberling_, Aug 19 2011
|
