OFFSET
0,3
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..300
MAPLE
with(numtheory):
b:= n-> `if`(n=0, 1, n!*add((d!*(n/d)^d)^(-1), d=divisors(n))):
a:= n-> add(binomial(n-1, j-1)*n^(n-j)*b(j), j=0..n):
seq(a(n), n=0..25);
MATHEMATICA
nn=20; t[x_]:=Sum[n^(n-1)x^n/n!, {n, 1, nn}]; Range[0, nn]!CoefficientList[Series[1+Sum[Exp[t[x]^i/i]-1, {i, 1, nn}], {x, 0, nn}], x] (* Geoffrey Critzer, Aug 11 2014 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Aug 10 2014
STATUS
approved