A194203 Partial sums of A194202.

0, 1, 2, 4, 6, 9, 12, 15, 19, 24, 29, 35, 41, 47, 54, 62, 70, 79, 88, 98, 108, 119, 130, 141, 153, 166, 180, 194, 208, 223, 238, 254, 270, 287, 305, 323, 341, 360, 379, 398, 418, 439, 460, 482, 504, 526, 549, 573, 597, 622, 647, 673, 699, 726, 753, 780

Offset

1,3

Links

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

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

Crossrefs

Cf. A194202.

Sequence in context: A234363 A194229 A194201 * A261222 A130025 A278299

Adjacent sequences: A194200 A194201 A194202 * A194204 A194205 A194206

Keyword

nonn

Author

Clark Kimberling, Aug 19 2011

Status

approved