OFFSET
1,4
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..5000
MATHEMATICA
r = 2E;
a[n_] := Floor[Sum[FractionalPart[k*r], {k, 1, n}]]
Table[a[n], {n, 1, 90}] (* A194202 *)
s[n_] := Sum[a[k], {k, 1, n}]
Table[s[n], {n, 1, 100}] (* A194203 *)
Floor[Accumulate[FractionalPart[2 Range[80]E]]] (* Harvey P. Dale, Aug 16 2021 *)
PROG
(PARI) a(n) = floor(sum(k=1, n, frac(2*exp(1)*k))); \\ Michel Marcus, Nov 12 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Aug 19 2011
STATUS
approved