A194226 Partial sums of A194225.

0, 0, 0, 1, 3, 6, 9, 12, 15, 18, 22, 27, 33, 39, 45, 51, 57, 64, 72, 81, 90, 99, 108, 117, 127, 138, 150, 162, 174, 186, 198, 211, 225, 240, 255, 270, 285, 300, 316, 333, 351, 369, 387, 405, 423, 442, 462, 483, 504, 525, 546, 567, 589, 612, 636, 660, 684

Offset

1,5

Links

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

Mathematica

r = 1/7;
a[n_] := Floor[Sum[FractionalPart[k*r], {k, 1, n}]]
Table[a[n], {n, 1, 90}]    (* A194225 *)
s[n_] := Sum[a[k], {k, 1, n}]
Table[s[n], {n, 1, 100}]   (* A194226 *)

Crossrefs

Cf. A194225.

Sequence in context: A177102 A292666 A028251 * A193803 A284601 A039004

Adjacent sequences: A194223 A194224 A194225 * A194227 A194228 A194229

Keyword

nonn

Author

Clark Kimberling, Aug 19 2011

Status

approved