%I #13 Jun 21 2015 21:51:49
%S 1,0,2,-3,23,-130,1016,-8925,90369,-1027332,12980406,-180372995,
%T 2734039527,-44890794078,793705143908,-15034678005165,303761462921921,
%U -6520477426903400,148194700045065674,-3555110881720345347
%N Expansion of cosh(x)/cos(log(1+x)).
%F a(n) ~ n! * cosh(1-exp(-Pi/2)) / ((exp(Pi/2)-1) * (exp(-Pi/2)-1)^n). - _Vaclav Kotesovec_, Jan 22 2015
%t Cosh[ x ]/Cos[ Log[ 1+x ] ]
%t CoefficientList[Series[Cosh[x]*Sec[Log[1 + x]], {x, 0, 20}], x] * Range[0, 20]! (* _Vaclav Kotesovec_, Jan 22 2015 *)
%K sign,easy
%O 0,3
%A _R. H. Hardin_
%E Extended with signs by _Olivier GĂ©rard_, Mar 15 1997
|