A194246 Partial sums of A194245.

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, 237, 253, 269, 285, 302, 320, 338, 357, 376, 396, 416, 437, 459, 481, 503, 526, 550, 574, 598, 623, 649, 675, 701, 728, 755, 782

Offset

1,4

Links

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

Mathematica

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

Crossrefs

Cf. A194245.

Sequence in context: A224813 A224812 A194256 * A239873 A224811 A024617

Adjacent sequences: A194243 A194244 A194245 * A194247 A194248 A194249

Keyword

nonn

Author

Clark Kimberling, Aug 20 2011

Status

approved