A194226 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,5

LINKS

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

Index entries for linear recurrences with constant coefficients, signature (2, -1, 0, 0, 0, 0, 1, -2, 1).

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 *)