A344552 a(n) = Sum_{k=1..n} floor(k*(n-k)/n).

0, 0, 0, 1, 2, 3, 4, 6, 10, 12, 14, 17, 22, 25, 28, 34, 40, 46, 50, 55, 62, 69, 74, 80, 94, 100, 108, 115, 126, 133, 142, 152, 164, 176, 184, 197, 210, 221, 230, 242, 260, 272, 286, 297, 314, 327, 340, 354, 378, 394, 406, 423, 442, 459, 472, 488, 512, 532, 548, 563, 590, 607

Offset: 1

Author

Wesley Ivan Hurt, May 22 2021

Keywords

• nonn

Crossrefs

Cf. A006218, A344514, A344551.

Programs

Mathematica

Table[Sum[Floor[k (n - k)/n], {k, n}], {n, 80}]