OFFSET
0,3
COMMENTS
Exponential transform of A014963.
LINKS
Eric Weisstein's World of Mathematics, Mangoldt Function
N. J. A. Sloane, Transforms
FORMULA
E.g.f.: exp(Sum_{k>=1} A014963(k)*x^k/k!).
EXAMPLE
E.g.f.: A(x) = 1 + x/1! + 3*x^2/2! + 10*x^3/3! + 39*x^4/4! + 186*x^5/5! + 962*x^6/6! + 5587*x^7/7! + ...
MATHEMATICA
nmax = 23; CoefficientList[Series[Exp[Sum[Exp[MangoldtLambda[k]] x^k/k!, {k, 1, nmax}]], {x, 0, nmax}], x] Range[0, nmax]!
a[n_] := a[n] = Sum[Exp[MangoldtLambda[k]] Binomial[n - 1, k - 1] a[n - k], {k, 1, n}]; a[0] = 1; Table[a[n], {n, 0, 23}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Apr 17 2018
STATUS
approved