%I #5 Apr 05 2019 17:46:44
%S 1,1,3,20,218,3514,77386,2220504,80085792,3533917704,186779329704,
%T 11623513158960,839754709300800,69603737430736560,6552428441847854640,
%U 694531396130434062720,82265733994694038784640,10816812417663289139328000,1569560370536552329095091200
%N Expansion of e.g.f. Sum_{j>=0} log(1 + x)^j / Product_{k=1..j} (1 - k*log(1 + x)).
%F a(n) = Sum_{k=0..n} Stirling1(n,k)*k!*Bell(k).
%t nmax = 18; CoefficientList[Series[Sum[Log[1 + x]^j/Product[(1 - k Log[1 + x]), {k, 1, j}], {j, 0, nmax}], {x, 0, nmax}], x] Range[0, nmax]!
%t Table[Sum[StirlingS1[n, k] k! BellB[k], {k, 0, n}], {n, 0, 18}]
%Y Cf. A000110, A006252, A137341, A307362.
%K nonn
%O 0,3
%A _Ilya Gutkovskiy_, Apr 05 2019