A194211 - OEIS

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

%S 0,0,0,0,0,0,1,2,4,6,9,12,16,20,25,31,38,46,54,63,73,83,94,105,116,

%T 127,138,150,162,174,187,200,214,229,244,260,277,294,312,331,351,372,

%U 393,414,435,457,479,501,523,546,569,593,617,642,667,693,720,747,775

%N Partial sums of A194210.

%t r = Pi/3;

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

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

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

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

%Y Cf. A194210.

%K nonn

%O 1,8

%A _Clark Kimberling_, Aug 19 2011