|
%I #13 Jun 22 2015 22:23:08
%S 0,1,-1,1,-8,65,-361,2497,-23848,256385,-2904601,36778113,-520366208,
%T 8014148545,-132884846641,2373343120449,-45463597872688,
%U 928532354406145,-20134914035881681,462226423647925505,-11199802803793004888
%N Expansion of log(1+tan(x))/cosh(x).
%F a(n) ~ (n-1)! * (-1)^(n+1) * (4/Pi)^n / cosh(Pi/4). - _Vaclav Kotesovec_, Jan 23 2015
%t Log[ 1+Tan[ x ] ]/Cosh[ x ]
%t CoefficientList[Series[Log[1 + Tan[x]]*Sech[x], {x, 0, 20}], x] * Range[0, 20]! (* _Vaclav Kotesovec_, Jan 23 2015 *)
%K sign,easy
%O 0,5
%A _R. H. Hardin_
%E Extended with signs by _Olivier Gérard_, Mar 15 1997
|
