|
%I
%S 0,1,-1,5,-12,89,-345,3093,-17136,178065,-1313865,15537125,-145520364,
%T 1937055977,-22215578385,330407321013,-4508998213440,74499864979361,
%U -1181547581150961,21576252384049093,-389965846387214380
%N Expansion of log(1+x)*cosh(tan(x)).
%F a(n) ~ (n-1)! * (-1)^(n+1) * cosh(tan(1)). - _Vaclav Kotesovec_, Jan 23 2015
%t Log[ 1+x ]*Cosh[ Tan[ x ] ]
%t CoefficientList[Series[Cosh[Tan[x]]*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
|
