OFFSET
0,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..448
FORMULA
a(n) = (-1)^n*n!*Sum_{p >=1} LaguerreL(n, -n-1, p)/(p-1)!/exp(1), n>=0.
E.g.f.: exp(exp(x)-1+x)/(1-x).
Representation as the n-th moment of a positive weight function on a positive half-axis: The weight function is a piecewise continuous function which is a weighted infinite sum of shifted exponential distributions, in Maple notation: a(n)=int(x^n*sum(exp(p-x)*Heaviside(x-p)/(p-1)!, p=1..infinity))/(exp(1)), n=0, 1...
a(n) ~ exp(exp(1)) * n!. - Vaclav Kotesovec, Jun 26 2022
MATHEMATICA
With[{nmax = 50}, CoefficientList[Series[Exp[Exp[x] - 1 + x]/(1 - x), {x, 0, nmax}], x]*Range[0, nmax]!] (* G. C. Greubel, May 23 2018 *)
Table[n!Sum[BellB[k+1]/k!, {k, 0, n}], {n, 0, 20}] (* Harvey P. Dale, May 03 2020 *)
PROG
(PARI) x='x+O('x^30); Vec(serlaplace(exp(exp(x)-1+x)/(1-x) )) \\ G. C. Greubel, May 23 2018
(Magma) m:=25; R<x>:=PowerSeriesRing(Rationals(), m); b:=Coefficients(R!(Exp(Exp(x)-1+x)/(1-x))); [Factorial(n-1)*b[n]: n in [1..m]]; // G. C. Greubel, May 23 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Karol A. Penson, Oct 13 2005
STATUS
approved