|
%I #8 Jul 23 2017 03:08:25
%S 945,45045,1344420,33093060,745860115,16201119935,348820952480,
%T 7567361882080,167057902281270,3775807346835342,87699348621850680,
%U 2098002630307972920,51760647309783259386,1317835530989933266850,34632875559239201852608,939407586052413176727424
%N Number of permutations of [n] having exactly five nontrivial cycles.
%C A nontrivial cycle has size > 1.
%H Alois P. Heinz, <a href="/A289953/b289953.txt">Table of n, a(n) for n = 10..450</a>
%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Permutation">Permutation</a>
%F E.g.f.: (-log(1-x)-x)^5/5!*exp(x).
%t Drop[Range[0, 30]! CoefficientList[Series[(-Log[1 - x] - x)^5 / 5! Exp[x], {x, 0, 30}], x], 10] (* _Vincenzo Librandi_, Jul 23 2017 *)
%Y Column k=5 of A136394.
%K nonn
%O 10,1
%A _Alois P. Heinz_, Jul 16 2017
|
