|
|
A289956
|
|
Number of permutations of [n] having exactly eight nontrivial cycles.
|
|
2
|
|
|
2027025, 218243025, 13818229425, 680438103345, 29079209884725, 1141483113695925, 42556765607801445, 1539279211706361125, 54789078082648965055, 1938102614993339970175, 68612592434209034386175, 2443274471026078967051775, 87839862102761225799417075
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
16,1
|
|
COMMENTS
|
A nontrivial cycle has size > 1.
|
|
LINKS
|
|
|
FORMULA
|
E.g.f.: (log(1-x)+x)^8/8!*exp(x).
|
|
MATHEMATICA
|
Drop[CoefficientList[Series[(Log[1 - x] + x)^8/8!*Exp[x] , {x, 0, 50}], x] * Table[k !, {k, 0, 50}] , 16] (* Indranil Ghosh, Jul 16 2017 *)
|
|
PROG
|
(PARI) x = 'x + O('x^30); Vec(serlaplace((-log(1-x)-x)^8/8!*exp(x))) \\ Michel Marcus, Jul 16 2017
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|