OFFSET
1,2
LINKS
Paul D. Hanna, Table of n, a(n) for n = 1..100
PROG
(PARI) {ITERATE(F, n, k) = my(G=x +x*O(x^k)); for(i=1, n, G=subst(G, x, F)); G}
{A274390(n, k) = my(TREE = serreverse(x*exp(-x +x*O(x^k)))); k!*polcoeff(ITERATE(TREE, n, k), k)}
/* Print A274390 */
for(n=0, 10, for(k=1, 10, print1(A274390(n, k), ", ")); print("..."))
/* Print this sequence, as a diagonal of A274390 */
for(n=1, 20, print1(A274390(n, n), ", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Jun 24 2016
STATUS
approved