OFFSET
0,3
MAPLE
MATHEMATICA
A369071[n_] := Sum[Binomial[n, k-1] If[k == 1, 1, (k-1)^(k-1)] k (n-k+1)^(n-k), {k, n}]; Array[A369071, 20, 0] (* Paolo Xausa, Jan 28 2024 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Peter Luschny, Jan 13 2024
STATUS
approved