|
PROG
|
(PARI) {a(n)=polcoeff(sum(k=0, n, (k^2+k+1)^k*exp(-(k^2+k+1)*x +x*O(x^n))*x^k/k!), n)}
for(n=0, 25, print1(a(n), ", "))
(PARI) {a(n)=(1/n!)*polcoeff(sum(k=0, n, (k^2+k+1)^k*x^k/(1+(k^2+k+1)*x +x*O(x^n))^(k+1)), n)}
for(n=0, 20, print1(a(n), ", "))
(PARI) {a(n)=1/n!*sum(k=0, n, (-1)^(n-k)*binomial(n, k)*(k^2+k+1)^n)}
for(n=0, 20, print1(a(n), ", "))
|