login
A194213
Partial sums of A194212.
2
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
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
KEYWORD
nonn
AUTHOR
Clark Kimberling, Aug 19 2011
STATUS
approved