A194209 - OEIS

%I #5 Mar 30 2012 18:57:40

%S 0,0,1,2,4,6,9,13,17,22,27,33,39,46,54,62,71,80,90,100,111,123,135,

%T 148,161,175,189,204,220,236,253,270,288,306,325,345,365,385,406,428,

%U 450,473,496,520,544,569,594,620,647,674,701,729,757,786,816,846

%N Partial sums of A194208.

%t r = Pi/2;

%t a[n_] := Floor[Sum[FractionalPart[k*r], {k, 1, n}]]

%t Table[a[n], {n, 1, 90}]  (* A194208 *)

%t s[n_] := Sum[a[k], {k, 1, n}]

%t Table[s[n], {n, 1, 100}] (* A194209 *)

%Y Cf. A194208.

%K nonn

%O 1,4

%A _Clark Kimberling_, Aug 19 2011