OFFSET
1,2
COMMENTS
Row sums of A073480.
LINKS
Seiichi Manyama, Table of n, a(n) for n = 1..449
FORMULA
a(n) ~ n! * exp(1) * log(2). - Vaclav Kotesovec, Jul 02 2015
a(n) = Sum_{k=1..n} k! * binomial(n,k) * Sum_{j=1..k} (-1)^(j+1)/j. - Seiichi Manyama, Feb 20 2022
MATHEMATICA
Rest[CoefficientList[Series[E^x*Log[1+x]/(1-x), {x, 0, 20}], x] * Range[0, 20]!] (* Vaclav Kotesovec, Jul 02 2015 *)
PROG
(PARI) my(N=40, x='x+O('x^N)); Vec(serlaplace(exp(x)*log(1+x)/(1-x))) \\ Seiichi Manyama, Feb 20 2022
(PARI) a(n) = sum(k=1, n, k!*binomial(n, k)*sum(j=1, k, (-1)^(j+1)/j)); \\ Seiichi Manyama, Feb 20 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladeta Jovovic, Aug 28 2002
STATUS
approved