A194254 - OEIS

A194254

Partial sums of A194253.

0, 1, 2, 4, 6, 9, 12, 16, 20, 25, 30, 36, 42, 48, 55, 63, 72, 81, 91, 101, 112, 123, 135, 147, 159, 171, 184, 198, 212, 227, 243, 260, 277, 295, 313, 332, 351, 370, 389, 409, 429, 450, 472, 494, 517, 540, 564, 588, 613, 638, 664, 690, 717, 744, 771, 799

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

OFFSET

1,3

LINKS

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

MATHEMATICA

r = Sqrt[12];

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

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

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

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

CROSSREFS