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

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

Cf. A194167.

Sequence in context: A062467 A250621 A003068 * A347763 A198759 A078617

Adjacent sequences: A194165 A194166 A194167 * A194169 A194170 A194171

Keyword

nonn

Author

Clark Kimberling, Aug 18 2011

Status

approved