OFFSET
1,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..500
FORMULA
E.g.f.: exp(exp(x)-1)*Sum_{k>0} (1-exp(-x^k/k!)).
MAPLE
b:= proc(n, i, c) option remember; `if`(n=0, c,
`if`(i<1, 0, add(b(n-j*i, i-1, c+signum(j))*
combinat[multinomial](n, n-i*j, i$j)/j!, j=0..n/i)))
end:
a:= n-> b(n$2, 0):
seq(a(n), n=1..30); # Alois P. Heinz, Jan 06 2022
MATHEMATICA
Rest[ Range[0, 23]! CoefficientList[ Series[ Exp[ Exp[x] - 1] Sum[1 - Exp[ -x^k/k! ], {k, 30}], {x, 0, 23}], x]] (* Robert G. Wilson v, Sep 13 2007 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Vladeta Jovovic, Sep 06 2007
EXTENSIONS
More terms from Robert G. Wilson v, Sep 13 2007
STATUS
approved