|
%I #20 Sep 08 2022 08:45:00
%S 0,0,0,0,1,30,735,17920,459270,12600000,372027810,11824496640,
%T 403786706895,14772648450560,577227041015625,24013333950627840,
%U 1060372471758165020,49558656380297379840,2444960458495625410260,127008768000000000000000
%N a(n) = binomial(n-1,4)*n^(n-5).
%D R. P. Stanley, Enumerative Combinatorics, Cambridge, Vol. 2, 1999; see Prop. 5.3.2.
%H G. C. Greubel, <a href="/A053509/b053509.txt">Table of n, a(n) for n = 1..250</a>
%F E.g.f.: -LambertW(-x)^5/5!. - _Vladeta Jovovic_, Apr 07 2001
%t Table[Binomial[n-1,4]*n^(n-5), {n,1,25}] (* _G. C. Greubel_, Jan 18 2017 *)
%o (PARI) vector(25, n, binomial(n-1,4)*n^(n-5)) \\ _G. C. Greubel_, Jan 18 2017
%o (Magma) [Binomial(n-1,4)*n^(n-5): n in [1..30]]; // _G. C. Greubel_, Nov 14 2017
%o (Sage) [binomial(n-1,4)*n^(n-5) for n in (1..25)] # _G. C. Greubel_, May 15 2019
%o (GAP) List([1..25], n-> Binomial(n-1,4)*n^(n-5)) # _G. C. Greubel_, May 15 2019
%Y Cf. A000169, A053506, A053507, A053508.
%K nonn
%O 1,6
%A _N. J. A. Sloane_, Jan 15 2000
|
