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

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

Cf. A194204.

Sequence in context: A132278 A025700 A033638 * A136413 A177337 A117143

Adjacent sequences: A194202 A194203 A194204 * A194206 A194207 A194208

Keyword

nonn

Author

Clark Kimberling, Aug 19 2011

Status

approved