OFFSET
0,2
FORMULA
a(n) = n! * [x^n] exp(x)/(2 - exp(n*x)).
a(n) = Sum_{k=0..n} binomial(n,k) * n^k * A000670(k).
a(n) ~ sqrt(Pi/2) * n^(2*n + 1/2) / (log(2)^(n+1) * exp(n)). - Vaclav Kotesovec, Jun 29 2019
MATHEMATICA
Table[Sum[(n k + 1)^n/2^(k + 1), {k, 0, Infinity}], {n, 0, 15}]
Table[n! SeriesCoefficient[Exp[x]/(2 - Exp[n x]), {x, 0, n}], {n, 0, 15}]
Join[{1}, Table[Sum[Binomial[n, k] n^k HurwitzLerchPhi[1/2, -k, 0]/2, {k, 0, n}], {n, 1, 15}]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Jun 29 2019
STATUS
approved