A194207 Partial sums of A194206.

0, 0, 0, 1, 3, 5, 8, 12, 16, 20, 25, 31, 37, 44, 51, 59, 67, 76, 85, 95, 106, 117, 129, 141, 154, 167, 181, 196, 211, 226, 242, 258, 275, 293, 312, 331, 350, 369, 389, 410, 431, 453, 475, 498, 521, 545, 569, 594, 620, 646, 672, 699, 726, 754, 783, 812, 842

Offset

1,5

Links

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

Mathematica

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

Crossrefs

Cf. A194206.

Sequence in context: A023660 A161339 A023562 * A236538 A194176 A186494

Adjacent sequences: A194204 A194205 A194206 * A194208 A194209 A194210

Keyword

nonn

Author

Clark Kimberling, Aug 19 2011

Status

approved