A194178 Partial sums of A194177.

0, 1, 2, 4, 6, 9, 13, 17, 22, 27, 32, 38, 45, 52, 60, 68, 76, 85, 95, 105, 116, 127, 138, 150, 163, 176, 190, 204, 218, 233, 248, 264, 280, 296, 313, 331, 350, 369, 389, 409, 430, 452, 474, 497, 520, 543, 567, 592, 617, 643, 669, 695, 722, 750, 778, 807

Offset

1,3

Links

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

Mathematica

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

Crossrefs

Cf. A194177.

Sequence in context: A038709 A186351 A049981 * A194213 A194209 A183143

Adjacent sequences: A194175 A194176 A194177 * A194179 A194180 A194181

Keyword

nonn

Author

Clark Kimberling, Aug 18 2011

Status

approved