OFFSET
1,2
LINKS
Harry J. Smith, Table of n, a(n) for n = 1..200
FORMULA
a(n) = (n-1)!*A058128(n), n>1.
MATHEMATICA
Join[{1}, Table[n(n^(n-1)-1) (n-2)!/(n-1), {n, 2, 20}]] (* Harvey P. Dale, Feb 17 2020 *)
PROG
(PARI) { for (n = 1, 200, if (n==1, a=1, a=n*(n^(n - 1) - 1)*(n - 2)!/(n - 1)); write("b059522.txt", n, " ", a); ) } \\ Harry J. Smith, Jun 27 2009
(Magma) [1] cat [n*(n^(n-1)-1)*Factorial(n-2)/(n-1): n in [2..17]]; // Vincenzo Librandi, Feb 18 2020
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane, Feb 16 2001
STATUS
approved