A194164 - OEIS

A194164

Partial sums of A194163.

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, 259, 275, 292, 310, 328, 346, 365, 384, 404, 424, 445, 466, 487, 509, 532, 555, 578, 602, 627, 652, 677, 703, 730, 757, 785

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

OFFSET

1,3

LINKS

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

MATHEMATICA

r = Sqrt[3];

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

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

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

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

PROG