|
%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
|
