|
|
A357339
|
|
Triangle read by rows. T(n, k) = Sum_{j=0..n-k} binomial(-n, j) * A268437(n - k, j).
|
|
3
|
|
|
1, -1, 1, 10, -2, 1, -270, 24, -3, 1, 14056, -720, 44, -4, 1, -1197000, 40320, -1500, 70, -5, 1, 151169040, -3628800, 92064, -2700, 102, -6, 1, -26521775280, 479001600, -8890560, 181888, -4410, 140, -7, 1, 6169461217920, -87178291200, 1241982720, -18910080, 324912, -6720, 184, -8, 1
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
LINKS
|
|
|
EXAMPLE
|
Triangle starts:
[0] 1;
[1] -1, 1;
[2] 10, -2, 1;
[3] -270, 24, -3, 1;
[4] 14056, -720, 44, -4, 1;
[5] -1197000, 40320, -1500, 70, -5, 1;
[6] 151169040, -3628800, 92064, -2700, 102, -6, 1;
|
|
MAPLE
|
A357339 := proc(n, k) local u; u:=(n - k); (2*u)!*add(binomial(-n, j) * j! * add((-1)^(j+m)*binomial(u+j, u+m)*Stirling2(u+m, m), m=0..j) / (u+j)!, j=0..u) end: seq(print(seq(A357339(n, k), k=0..n)), n=0..6);
|
|
PROG
|
(SageMath) # using function A268437.
return sum(binomial(-n, i) * A268437(n - k, i) for i in range(n - k + 1))
for n in range(9): print([A357339(n, k) for k in range(n + 1)])
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|