A194250 - OEIS

A194250

Partial sums of A194249.

0, 0, 1, 2, 4, 6, 9, 12, 16, 21, 26, 31, 37, 43, 50, 57, 65, 74, 83, 92, 102, 112, 122, 133, 144, 156, 169, 182, 196, 210, 225, 240, 255, 271, 287, 304, 322, 340, 359, 378, 397, 417, 437, 458, 479, 501, 523, 546, 570, 594, 618, 643, 668, 694, 720, 747, 774

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

OFFSET

1,4

LINKS

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

MATHEMATICA

r = 3-Sqrt[6];

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

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

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

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

Accumulate[Accumulate[Table[FractionalPart[(3-Sqrt[6])n], {n, 80}]] //Floor] (* Harvey P. Dale, Jun 22 2016 *)