|
|
A232773
|
|
Permanent of the n X n matrix with numbers 1,2,...,n^2 in order across rows.
|
|
5
|
|
|
1, 1, 10, 450, 55456, 14480700, 6878394720, 5373548250000, 6427291156586496, 11157501095973529920, 26968983444160450560000, 87808164603589940623344000, 374818412822626584819196231680, 2050842983500342507649178541536000, 14112022767608502582976078751055052800
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
FORMULA
|
a(n) = (-1)^n * Sum_{k=0..n} n^k * Stirling1(n,n-k) * Stirling1(n+1,k+1) * (n-k)! * k!. - Max Alekseyev, Nov 30 2013
|
|
MAPLE
|
a:= n-> (-1)^n*add(n^k*Stirling1(n, n-k)*
Stirling1(n+1, k+1)*(n-k)!*k!, k=0..n):
|
|
MATHEMATICA
|
Table[(-1)^n * Sum[n^k * StirlingS1[n, n-k] * StirlingS1[n+1, k+1] * (n-k)! * k!, {k, 0, n}], {n, 0, 20}] (* Vaclav Kotesovec after Max Alekseyev, Nov 30 2013 *)
|
|
PROG
|
(PARI) a(n) = (-1)^n * sum(k=0, n, n^k * stirling(n, n-k) * stirling(n+1, k+1) * (n-k)! * k! ) /* Max Alekseyev, Nov 30 2013 */
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|