A194256 Partial sums of A194255.

0, 0, 1, 2, 4, 6, 9, 12, 16, 20, 25, 30, 36, 43, 50, 57, 64, 72, 80, 89, 98, 108, 118, 129, 141, 154, 167, 180, 194, 208, 222, 236, 251, 266, 282, 298, 315, 333, 352, 371, 391, 411, 431, 452, 473, 495, 517, 540, 563, 587, 611, 636, 661, 687, 714, 741, 768

Offset

1,4

Links

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

Mathematica

r = 4-Sqrt[12];
a[n_] := Floor[Sum[FractionalPart[k*r], {k, 1, n}]]
Table[a[n], {n, 1, 90}]    (* A194255 *)
s[n_] := Sum[a[k], {k, 1, n}]
Table[s[n], {n, 1, 100}]   (* A194256 *)

Crossrefs

Cf. A194255.

Sequence in context: A025699 A224813 A224812 * A194246 A239873 A224811

Adjacent sequences: A194253 A194254 A194255 * A194257 A194258 A194259

Keyword

nonn

Author

Clark Kimberling, Aug 20 2011

Status

approved