login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A174486
Column 0 of triangle A174485.
4
1, 1, 5, 70, 1973, 94216, 6851197, 706335064, 98105431657, 17669939141440, 4006704580744601, 1117139031649249984, 375701872315954792093, 149988716080978525265776, 70129434038848683974552365
OFFSET
0,3
COMMENTS
Triangular matrix described by A174485 transforms diagonals of the array A174480 of coefficients of successive iterations of x*exp(x).
PROG
(PARI) {a(n, k=0)=local(F=x, xEx=x*exp(x+x*O(x^(n+k+1))), M, N, P, m=n+k); M=matrix(m+2, m+2, r, c, F=x; for(i=1, r+c-2, F=subst(F, x, xEx)); polcoeff(F, c)); N=matrix(m+1, m+1, r, c, M[r, c]); P=matrix(m+1, m+1, r, c, M[r+1, c]); n!*(P~*N~^-1)[n+k+1, k+1]}
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Apr 18 2010
STATUS
approved