A194211 Partial sums of A194210.

0, 0, 0, 0, 0, 0, 1, 2, 4, 6, 9, 12, 16, 20, 25, 31, 38, 46, 54, 63, 73, 83, 94, 105, 116, 127, 138, 150, 162, 174, 187, 200, 214, 229, 244, 260, 277, 294, 312, 331, 351, 372, 393, 414, 435, 457, 479, 501, 523, 546, 569, 593, 617, 642, 667, 693, 720, 747, 775

Offset

1,8

Links

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

Mathematica

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

Crossrefs

Cf. A194210.

Sequence in context: A224811 A024617 A025698 * A224808 A351719 A292459

Adjacent sequences: A194208 A194209 A194210 * A194212 A194213 A194214

Keyword

nonn

Author

Clark Kimberling, Aug 19 2011

Status

approved