%I #13 Jun 22 2015 22:47:54
%S 0,1,1,4,-4,55,-349,3176,-31536,356981,-4486515,62124676,-939083124,
%T 15387231899,-271629760609,5139109612040,-103734448063424,
%U 2225145262126601,-50544116286741191,1212003840479789476
%N Expansion of tan(log(1+x))*exp(x).
%F a(n) ~ n! * (-1)^(n+1) * exp(exp(-Pi/2)-1) / ((exp(Pi/2)-1) * (1-exp(-Pi/2))^n). - _Vaclav Kotesovec_, Jan 23 2015
%t Tan[ Log[ 1+x ] ]*Exp[ x ]
%t CoefficientList[Series[E^x*Tan[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