A194201 Partial sums of A194200.

0, 1, 2, 4, 6, 9, 12, 15, 19, 23, 28, 34, 40, 46, 53, 60, 67, 75, 84, 93, 102, 112, 123, 134, 146, 159, 172, 185, 199, 214, 229, 245, 261, 278, 295, 313, 331, 350, 369, 388, 408, 428, 449, 471, 493, 515, 538, 561, 584, 608, 633, 658, 683, 709, 736, 763

Offset

1,3

Links

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

Mathematica

r = E;
a[n_] := Floor[Sum[FractionalPart[k*r], {k, 1, n}]]
Table[a[n], {n, 1, 90}]  (* A194200 *)
s[n_] := Sum[a[k], {k, 1, n}]
Table[s[n], {n, 1, 100}]  (* A194201 *)

Crossrefs

Cf. A194200.

Sequence in context: A156024 A234363 A194229 * A194203 A261222 A130025

Adjacent sequences: A194198 A194199 A194200 * A194202 A194203 A194204

Keyword

nonn

Author

Clark Kimberling, Aug 19 2011

Status

approved