login
A059522
a(1) = 1, then a(n) = n*(n^(n-1)-1)*(n-2)!/(n-1).
2
1, 2, 12, 168, 4680, 223920, 16470720, 1725655680, 244074902400, 44799999955200, 10353389902732800, 2941340482417075200, 1007483754568427136000, 409436080665631065446400, 194769597399609368328192000, 107210375103315036907081728000, 67610055415398119744255815680000
OFFSET
1,2
LINKS
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
Cf. A058128.
Sequence in context: A052729 A098431 A231085 * A271857 A113149 A156143
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane, Feb 16 2001
STATUS
approved