A194204 a(n) = [Sum_{k=1..n} (k*e/2)], where [ ]=floor, ( )=fractional part.

0, 1, 1, 1, 2, 2, 3, 3, 4, 4, 5, 6, 6, 6, 7, 7, 7, 8, 9, 9, 9, 10, 11, 11, 12, 13, 13, 13, 14, 15, 15, 15, 16, 16, 17, 18, 18, 19, 19, 19, 20, 20, 20, 21, 21, 22, 23, 23, 23, 24, 25, 25, 25, 26, 27, 27, 27, 28, 28, 29, 30, 30, 31, 32, 32, 33, 33, 33, 34, 34, 34, 35, 36

Offset

1,5

Links

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

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 *)

Prog

(PARI) a(n) = floor(sum(k=1, n, frac(exp(1)*k/2))); \\ Michel Marcus, Nov 12 2017

Crossrefs

Cf. A194205.

Sequence in context: A026261 A026233 A222422 * A348110 A100679 A226190

Adjacent sequences: A194201 A194202 A194203 * A194205 A194206 A194207

Keyword

nonn

Author

Clark Kimberling, Aug 19 2011

Status

approved