|
%I #16 May 30 2018 06:07:25
%S 1,8,59,463,3978,37566,388728,4385592,53653680,708126480,10034314560,
%T 152001161280,2451821339520,41964428419200,759698874547200,
%U 14505012898790400,291323663566387200,6140173922952652800,135515391451776000000,3125606951427609600000
%N Number of entries in the third cycles of all permutations of [n].
%C Each cycle is written with the smallest element first and cycles are arranged in increasing order of their first elements.
%H Alois P. Heinz, <a href="/A285231/b285231.txt">Table of n, a(n) for n = 3..449</a>
%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Permutation">Permutation</a>
%F a(n) = A185105(n,3) = A159324(n-1)/2.
%F a(n) ~ n!*n/8. - _Vaclav Kotesovec_, Apr 25 2017
%p a:= proc(n) option remember; `if`(n<4, [0$3, 1][n+1],
%p ((2*n^3-7*n^2+3*n+4)*a(n-1)-(n-2)^3*(n+1)*a(n-2))/(n*(n-3)))
%p end:
%p seq(a(n), n=0..25);
%t a[3] = 1; a[4] = 8;
%t a[n_] := a[n] = ((2n^3-7n^2+3n+4) a[n-1] - (n-2)^3 (n+1) a[n-2])/(n(n-3));
%t Table[a[n], {n, 3, 25}] (* _Jean-François Alcover_, May 30 2018, from Maple *)
%Y Column k=3 of A185105.
%Y Cf. A159324.
%K nonn
%O 3,2
%A _Alois P. Heinz_, Apr 15 2017
| 