A194209 Partial sums of A194208.

0, 0, 1, 2, 4, 6, 9, 13, 17, 22, 27, 33, 39, 46, 54, 62, 71, 80, 90, 100, 111, 123, 135, 148, 161, 175, 189, 204, 220, 236, 253, 270, 288, 306, 325, 345, 365, 385, 406, 428, 450, 473, 496, 520, 544, 569, 594, 620, 647, 674, 701, 729, 757, 786, 816, 846

Offset

1,4

Links

Table of n, a(n) for n=1..56.

Mathematica

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

Crossrefs

Cf. A194208.

Sequence in context: A049981 A194178 A194213 * A183143 A184977 A025705

Adjacent sequences: A194206 A194207 A194208 * A194210 A194211 A194212

Keyword

nonn

Author

Clark Kimberling, Aug 19 2011

Status

approved