



0, 0, 0, 1, 3, 6, 9, 12, 16, 20, 25, 31, 37, 44, 51, 59, 67, 76, 85, 95, 105, 116, 127, 139, 151, 163, 176, 189, 203, 218, 233, 248, 264, 280, 297, 315, 333, 351, 369, 388, 407, 427, 448, 469, 490, 512, 535, 558, 582, 606, 631, 656, 682, 708, 735, 762, 790
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,5


LINKS



MATHEMATICA

r = Sqrt[10];
a[n_] := Floor[Sum[FractionalPart[k*r], {k, 1, n}]]
Table[a[n], {n, 1, 90}] (* A194198 *)
s[n_] := Sum[a[k], {k, 1, n}]
Table[s[n], {n, 1, 100}] (* A194199 *)


CROSSREFS



KEYWORD

nonn


AUTHOR



STATUS

approved



