OFFSET
0,3
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..422
FORMULA
a(0) = 1 and a(n) = (n-1)! * Sum_{k=1..n} k*A000041(k)*a(n-k)/(n-k)! for n > 0. - Seiichi Manyama, Oct 15 2017
MATHEMATICA
nmax = 30; CoefficientList[Series[1/E*Exp[Product[1/(1 - x^k), {k, 1, nmax}]], {x, 0, nmax}], x] * Range[0, nmax]!(* Vaclav Kotesovec, Aug 19 2015 *)
PROG
(PARI)
N=66; q='q+O('q^N);
f=exp( 1/prod(n=1, N, 1-q^n ) - 1 );
egf=serlaplace(f);
Vec(egf)
/* Joerg Arndt, Oct 06 2012 */
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Jan 08 2001
STATUS
approved