A194240 - OEIS

A194240

Partial sums of A194239.

0, 0, 1, 3, 5, 7, 9, 12, 16, 20, 24, 29, 34, 40, 46, 53, 60, 68, 77, 86, 95, 105, 116, 128, 140, 152, 165, 179, 193, 207, 221, 236, 252, 268, 284, 300, 317, 335, 353, 371, 390, 410, 430, 451, 472, 493, 515, 538, 561, 585, 609, 634, 660, 686, 712, 739, 767

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

OFFSET

1,4

LINKS

G. C. Greubel, Table of n, a(n) for n = 1..1000

MATHEMATICA

r = (1+Sqrt[2])/2;

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

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

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

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

CROSSREFS