|
|
A133068
|
|
Number of surjections from an n-element set to an eight-element set.
|
|
1
|
|
|
40320, 1451520, 30240000, 479001600, 6411968640, 76592355840, 843184742400, 8734434508800, 86355926616960, 823172919528960, 7621934141203200, 68937160460313600, 611692004959217280, 5342844138794426880, 46061530905262118400, 392795626402384128000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
8,1
|
|
LINKS
|
|
|
FORMULA
|
a(n) = Sum_{k=1..8} ((-1)^(8-k)*C(8,k)*k^n) and n >= 8.
G.f.: 40320*x^8/((x-1)*(2*x-1)*(3*x-1)*(4*x-1)*(5*x-1)*(6*x-1)*(7*x-1)*(8*x-1)). - Colin Barker, Oct 25 2012
|
|
MATHEMATICA
|
CoefficientList[Series[40320*x^8/((x - 1)*(2*x - 1)*(3*x - 1)*(4*x - 1)*(5*x - 1)*(6*x - 1)*(7*x - 1)*(8*x - 1)), {x, 0, 50}], x] (* G. C. Greubel, Oct 20 2017 *)
Table[Sum[(-1)^(8 - k)*Binomial[8, k]*k^n, {k, 1, 8}], {n, 8, 20}] (* G. C. Greubel, Oct 21 2017 *)
|
|
PROG
|
(PARI) x='x+O('x^50); Vec(40320*x^8/((x-1)*(2*x-1)*(3*x-1)*(4*x-1)*(5*x-1)*(6*x-1)*(7*x-1)*(8*x-1))) \\ G. C. Greubel, Oct 20 2017
(Magma) [&+[(-1)^(8-k)*Binomial(8, k)*k^n: k in [1..n]]: n in [8..25]]; // Vincenzo Librandi, Oct 21 2017
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|