A194252 Partial sums of A194251.

0, 0, 1, 2, 4, 6, 8, 11, 14, 18, 23, 28, 33, 39, 45, 52, 60, 68, 76, 85, 94, 104, 115, 126, 137, 149, 161, 174, 188, 202, 217, 232, 248, 265, 282, 299, 316, 334, 352, 371, 390, 409, 429, 449, 470, 492, 514, 536, 559, 582, 606, 631, 656, 681, 707, 733, 760

Offset

1,4

Links

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

Mathematica

r = 3-Sqrt[8];
a[n_] := Floor[Sum[FractionalPart[k*r], {k, 1, n}]]
Table[a[n], {n, 1, 90}]    (* A194251 *)
s[n_] := Sum[a[k], {k, 1, n}]
Table[s[n], {n, 1, 100}]   (* A194252 *)

Crossrefs

Cf. A194251.

Sequence in context: A084627 A321531 A194224 * A205727 A213609 A338237

Adjacent sequences: A194249 A194250 A194251 * A194253 A194254 A194255

Keyword

nonn

Author

Clark Kimberling, Aug 20 2011

Status

approved