|
MAPLE
|
b:= proc(n, i, k) option remember; `if`(n=0 or i=1, k^(n-1),
b(n, i-1, k) +`if`(i>n, 0, k*b(n-i, i, k)))
end:
A:= (n, k)-> `if`(n=0, 1, `if`(k<2, k, k*b(n$2, k-1))):
a:= n-> (k-> add(A(n, k-i)*(-1)^i/(i!*(k-i)!), i=0..k))(9):
seq(a(n), n=9..40);
|