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