A194213 Partial sums of A194212.

0, 0, 1, 2, 4, 6, 9, 13, 17, 22, 27, 33, 39, 46, 53, 61, 70, 79, 88, 98, 109, 120, 132, 144, 157, 170, 184, 198, 213, 228, 244, 260, 276, 293, 311, 329, 348, 367, 386, 406, 426, 447, 468, 490, 513, 536, 559, 583, 607, 632, 657, 683, 709, 735, 762, 789, 817

Offset

1,4

Links

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

Mathematica

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

Crossrefs

Cf. A194212.

Sequence in context: A186351 A049981 A194178 * A194209 A183143 A184977

Adjacent sequences: A194210 A194211 A194212 * A194214 A194215 A194216

Keyword

nonn

Author

Clark Kimberling, Aug 19 2011

Status

approved