A194180 Partial sums of A194179.

0, 0, 1, 3, 5, 8, 12, 16, 21, 27, 33, 40, 47, 55, 64, 73, 83, 94, 105, 116, 128, 141, 154, 168, 182, 197, 213, 229, 245, 262, 279, 297, 316, 335, 354, 374, 394, 415, 437, 459, 481, 504, 527, 551, 575, 600, 625, 651, 677, 703, 730, 757, 784, 812, 840

Offset

1,4

Links

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

Mathematica

r = 1/2+Sqrt[8];
a[n_] := Floor[Sum[FractionalPart[k*r], {k, 1, n}]]
Table[a[n], {n, 1, 90}]  (* A194179 *)
s[n_] := Sum[a[k], {k, 1, n}]
Table[s[n], {n, 1, 100}] (* A194180 *)

Crossrefs

Cf. A194178.

Sequence in context: A194176 A186494 A371702 * A000212 A183139 A094913

Adjacent sequences: A194177 A194178 A194179 * A194181 A194182 A194183

Keyword

nonn

Author

Clark Kimberling, Aug 18 2011

Status

approved