OFFSET
0,3
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..200
FORMULA
a(n) = Sum_{k=0..n} Stirling1(n,k)*k^n.
MAPLE
1, seq(n!*coeff(series(add(log(1+k*x)^k/k!, k=1..100), x=0, 21), x, n), n=1..20); # Paolo P. Lava, Jan 09 2019
MATHEMATICA
nmax = 20; CoefficientList[Series[1 + Sum[Log[1 + k x]^k/k!, {k, 1, nmax}], {x, 0, nmax}], x] Range[0, nmax]!
Join[{1}, Table[Sum[StirlingS1[n, k] k^n, {k, n}], {n, 20}]]
PROG
(PARI) a(n) = sum(k=0, n, stirling(n, k)*k^n); \\ Altug Alkan, Oct 05 2018
CROSSREFS
KEYWORD
sign
AUTHOR
Ilya Gutkovskiy, Oct 05 2018
STATUS
approved