A194205 - OEIS

%I #9 Nov 12 2017 02:52:49

%S 0,1,2,3,5,7,10,13,17,21,26,32,38,44,51,58,65,73,82,91,100,110,121,

%T 132,144,157,170,183,197,212,227,242,258,274,291,309,327,346,365,384,

%U 404,424,444,465,486,508,531,554,577,601,626,651,676,702,729,756

%N Partial sums of A194204.

%H G. C. Greubel, <a href="/A194205/b194205.txt">Table of n, a(n) for n = 1..1000</a>

%t r = E/2;

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

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

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

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

%Y Cf. A194204.

%K nonn

%O 1,3

%A _Clark Kimberling_, Aug 19 2011