A194256 - OEIS

A194256

Partial sums of A194255.

0, 0, 1, 2, 4, 6, 9, 12, 16, 20, 25, 30, 36, 43, 50, 57, 64, 72, 80, 89, 98, 108, 118, 129, 141, 154, 167, 180, 194, 208, 222, 236, 251, 266, 282, 298, 315, 333, 352, 371, 391, 411, 431, 452, 473, 495, 517, 540, 563, 587, 611, 636, 661, 687, 714, 741, 768

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

OFFSET

1,4

LINKS

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

MATHEMATICA

r = 4-Sqrt[12];

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

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

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

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

CROSSREFS