|
|
A289954
|
|
Number of permutations of [n] having exactly six nontrivial cycles.
|
|
2
|
|
|
10395, 675675, 26801775, 855870015, 24479795340, 661680519500, 17424049022380, 455359195951660, 11950227130952110, 317363732767667950, 8572733672197564870, 236346930206430701350, 6665648338618807806268, 192596934884274256728700, 5706700987506640526104700
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
12,1
|
|
COMMENTS
|
A nontrivial cycle has size > 1.
|
|
LINKS
|
|
|
FORMULA
|
E.g.f.: (log(1-x)+x)^6/6!*exp(x).
|
|
MATHEMATICA
|
Drop[Range[0, 30]! CoefficientList[Series[(Log[1 - x] + x)^6 / 6! Exp[x], {x, 0, 30}], x], 12] (* Vincenzo Librandi, Jul 24 2017 *)
|
|
PROG
|
(PARI) x = 'x + O('x^30); Vec(serlaplace((log(1-x)+x)^6/6!*exp(x))) \\ Michel Marcus, Jul 24 2017
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|