OFFSET
1,5
REFERENCES
R. P. Stanley, Enumerative Combinatorics, Cambridge, Vol. 2, 1999; see Prop. 5.3.2.
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..250
FORMULA
E.g.f.: LambertW(-x)^4/4!. - Vladeta Jovovic, Apr 07 2001
MATHEMATICA
Table[Binomial[n-1, 3]n^(n-4), {n, 25}] (* Harvey P. Dale, Jun 17 2014 *)
With[{nmax = 25}, CoefficientList[Series[LambertW[-x]^4/4!, {x, 0, nmax}], x]*Range[0, nmax]!] (* G. C. Greubel, Nov 14 2017 *)
PROG
(PARI) vector(25, n, binomial(n-1, 3)*n^(n-4)) \\ G. C. Greubel, Jan 18 2017
(Magma) [Binomial(n-1, 3)*n^(n-4): n in [1..25]]; // G. C. Greubel, Nov 14 2017
(Sage) [binomial(n-1, 3)*n^(n-4) for n in (1..25)] # G. C. Greubel, May 15 2019
(GAP) List([1..25], n-> Binomial(n-1, 3)*n^(n-4)) # G. C. Greubel, May 15 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Jan 15 2000
STATUS
approved