A194168 - OEIS

A194168

Partial sums of A194167.

0, 0, 0, 1, 2, 4, 7, 11, 15, 19, 23, 28, 33, 39, 46, 54, 62, 70, 78, 86, 95, 104, 114, 125, 137, 149, 161, 173, 186, 199, 213, 228, 244, 260, 276, 292, 308, 325, 343, 361, 380, 400, 420, 440, 461, 482, 504, 526, 549, 573, 597, 621, 645, 670, 695, 721, 748

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

OFFSET

1,5

LINKS

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

MATHEMATICA

r=1/2+GoldenRatio;

a[n_]:=Floor[Sum[FractionalPart[k*r], {k, 1, n}]]

Table[a[n], {n, 1, 90}] (* A194167 *)

s[n_]:=Sum[a[k], {k, 1, n}]

Table[s[n], {n, 1, 100}] (* A194168 *)

CROSSREFS