A194205 - OEIS

A194205

Partial sums of A194204.

0, 1, 2, 3, 5, 7, 10, 13, 17, 21, 26, 32, 38, 44, 51, 58, 65, 73, 82, 91, 100, 110, 121, 132, 144, 157, 170, 183, 197, 212, 227, 242, 258, 274, 291, 309, 327, 346, 365, 384, 404, 424, 444, 465, 486, 508, 531, 554, 577, 601, 626, 651, 676, 702, 729, 756

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,3

LINKS

G. C. Greubel, Table of n, a(n) for n = 1..1000

MATHEMATICA

r = E/2;

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

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

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

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

CROSSREFS