OFFSET
0,4
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..150
FORMULA
E.g.f.: Product_{n>=1} (1 + n^(n-2)*x^n/n!).
MAPLE
a:= n-> n!*coeff(series(mul(1+k^(k-2)*x^k/k!, k=1..n), x, n+1), x, n):
seq(a(n), n=0..20); # Alois P. Heinz, Sep 07 2012
MATHEMATICA
nn=20; p=Product[1+n^(n-2)x^n/n!, {n, 1, nn}]; Range[0, nn]! CoefficientList[Series[p, {x, 0, nn}], x]
CROSSREFS
KEYWORD
nonn
AUTHOR
Geoffrey Critzer, Sep 07 2012
STATUS
approved