|
%I #13 Jul 02 2015 12:46:32
%S 1,1,0,-3,-6,35,135,-476,-6300,14349,298515,254056,-26673042,
%T -26975169,1931306377,16803854768,-336040323112,-1435742838615,
%U 20743481564487,843925791375728,-11354618863953550,-37784454009996005
%N Expansion of exp(log(1+x)/cosh(x)).
%H Vaclav Kotesovec, <a href="/A009197/b009197.txt">Table of n, a(n) for n = 0..200</a>
%F a(n) ~ n! * (-1)^n / (GAMMA(-1/cosh(1)) * n^(1+1/cosh(1))). - _Vaclav Kotesovec_, Jul 02 2015
%t CoefficientList[Series[Exp[Log[1+x]/Cosh[x]], {x, 0, 20}], x] * Range[0, 20]! (* _Vaclav Kotesovec_, Jul 02 2015 *)
%K sign,easy
%O 0,4
%A _R. H. Hardin_
%E Extended with signs by _Olivier Gérard_, Mar 15 1997
|
