A055004 Boris Stechkin's function.

0, 0, 1, 5, 15, 33, 64, 107, 171, 252, 359, 490, 656, 844, 1079, 1346, 1656, 2006, 2415, 2859, 3373, 3927, 4550, 5233, 5993, 6793, 7690, 8653, 9697, 10809, 12028, 13299, 14695, 16158, 17731, 19398, 21174, 23018, 25017, 27108, 29318, 31616

Offset

0,4

References

R. K. Guy, Unsolved Problems Number Theory, A17.

Links

G. C. Greubel, Table of n, a(n) for n = 0..1000

Maple

A055004 := proc(n) local m; add((m-1)*floor(n*(m-1)/m), m=2..n); end proc;

Mathematica

Table[Sum[(k - 1)*Floor[n*(k - 1)/k], {k, 2, n}], {n, 0, 100}] (* G. C. Greubel, Jun 06 2016 *)

Crossrefs

Cf. A063483.

Sequence in context: A228599 A260918 A212983 * A332355 A147264 A147150

Adjacent sequences: A055001 A055002 A055003 * A055005 A055006 A055007

Keyword

nonn

Author

N. J. A. Sloane, Jun 11 2000

Status

approved