Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #14 Jun 21 2015 21:49:12
%S 0,1,0,4,-15,108,-875,8517,-95900,1228777,-17659660,281423800,
%T -4926084031,93966286048,-1940264385995,43119269420549,
%U -1026217122711680,26041836268699721,-701939296463506432,20028165890726106852
%N Expansion of log(1+log(1+x))*exp(x).
%F a(n) ~ (n-1)! * (-1)^(n+1) * exp(-1+exp(-1)) / (1-exp(-1))^n. - _Vaclav Kotesovec_, Jan 23 2015
%t Log[ 1+Log[ 1+x ] ]*Exp[ x ]
%t CoefficientList[Series[E^x*Log[1 + Log[1 + x]], {x, 0, 20}], x] * Range[0, 20]! (* _Vaclav Kotesovec_, Jan 23 2015 *)
%K sign,easy
%O 0,4
%A _R. H. Hardin_
%E Extended with signs by _Olivier GĂ©rard_, Mar 15 1997