OFFSET
0,3
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..251
FORMULA
a(n) = Sum_{k=0..n} (n!/(n-k)!) * C(n,k) * (n*k)^(n-k). - David Einstein, Oct 10 2016
MATHEMATICA
A[n_] := If[n == 0, 1, Sum[(n!/(n - k)!) Binomial[n, k] (n k)^(n - k), {k, 1, n}]]
Table[A[n], {n, 10}] (* David Einstein, Oct 10 2016 *)
PROG
(PARI) a(n) = sum(k= 0, n, (n!/(n-k)!)*binomial(n, k)*(n*k)^(n-k)); \\ Michel Marcus, Oct 11 2016; corrected Jun 13 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Chad Brewbaker, Mar 26 2014
EXTENSIONS
a(6)-a(7) from Giovanni Resta, Mar 28 2014
a(8)-a(17) from David Einstein, Oct 10 2016
STATUS
approved