|
|
A007806
|
|
Integer part of Sum_{i=1..n} binomial(n,i) * (n/i)^i.
|
|
1
|
|
|
1, 5, 16, 50, 147, 422, 1210, 3459, 9878, 28189, 80425, 229411, 654311, 1866003, 5321194, 15173321, 43264523, 123357771, 351712022, 1002758190, 2858875748, 8150529454, 23236408366, 66243882238, 188849982251, 538372895393, 1534776215805, 4375251800924
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MAPLE
|
a:= n-> floor(add(binomial(n, i)*(n/i)^i, i = 1..n)):
seq(a(n), n=1..30);
|
|
MATHEMATICA
|
Floor/@Table[Sum[Binomial[n, i](n/i)^i, {i, n}], {n, 30}] (* Harvey P. Dale, May 08 2012 *)
|
|
PROG
|
(PARI) a(n) = sum(i=1, n, binomial(n, i)*(n/i)^i)\1; \\ Michel Marcus, Oct 30 2018
(Sage) [floor( sum(binomial(n, j)*(n/j)^j for j in (1..n)) ) for n in (1..30)] # G. C. Greubel, Mar 06 2020
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Joseph Lavinus Ganley [ ganley(AT)virginia.edu ]
|
|
EXTENSIONS
|
Name corrected June 1995
|
|
STATUS
|
approved
|
|
|
|