%I #14 Jun 23 2015 21:40:40
%S 0,1,-1,5,-12,9,-105,1413,-8176,42801,-442665,5165445,-54556524,
%T 637139385,-8293744641,113478922053,-1717525727040,28284932778977,
%U -475222905120177,8340834063368709,-159725733100784940,3244894614657423849
%N Expansion of log(1+x)*cosh(tanh(x)).
%F a(n) ~ (n-1)! * (-1)^(n+1) * cosh(tanh(1)). - _Vaclav Kotesovec_, Jan 23 2015
%t Log[ 1+x ]*Cosh[ Tanh[ x ] ]
%t CoefficientList[Series[Cosh[Tanh[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
|