A194205 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

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