|
|
A298373
|
|
a(n) = n! * [x^n] exp(n*x - exp(x) + 1).
|
|
3
|
|
|
1, 0, 0, 1, 17, 273, 4779, 93532, 2047730, 49854795, 1339872113, 39462731031, 1265248227869, 43895994373580, 1639148060192408, 65568985769784897, 2797922570156143597, 126880981472647625557, 6094210606862471240855, 309087628703330034215088, 16508178701980033054460042
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,5
|
|
LINKS
|
|
|
FORMULA
|
a(n) = Sum_{k=0..n} binomial(n,k)*n^(n-k)*A000587(k).
|
|
MAPLE
|
b:= proc(n, k) option remember; `if`(n=0, 1,
k*b(n-1, k)+ b(n-1, k-1))
end:
a:= n-> abs(b(n, -n)):
|
|
MATHEMATICA
|
Table[n! SeriesCoefficient[Exp[n x - Exp[x] + 1], {x, 0, n}], {n, 0, 20}]
Join[{1}, Table[Sum[Binomial[n, k] n^(n - k) BellB[k, -1] , {k, 0, n}], {n, 1, 20}]]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|