A194199 Partial sums of A194198.

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

Offset

1,5

Links

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

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

Cf. A194198.

Sequence in context: A203302 A214050 A260706 * A072567 A186353 A362032

Adjacent sequences: A194196 A194197 A194198 * A194200 A194201 A194202

Keyword

nonn

Author

Clark Kimberling, Aug 19 2011

Status

approved