|
|
A055004
|
|
Boris Stechkin's function.
|
|
4
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
|