|
%I
%S 0,1,-1,-1,0,29,-105,139,-2072,31737,-247545,1824151,-22456104,
%T 313750293,-3929185169,51584719523,-793292190480,13137192234225,
%U -221862616530705,3947317975733039,-75492532592047280,1522475446731094285
%N Expansion of e.g.f.: log(1+x)/cosh(x).
%F a(n) ~ (-1)^(n+1) * (n-1)! / cosh(1). - _Vaclav Kotesovec_, Oct 01 2014
%t With[{nn=30},CoefficientList[Series[Log[1+x]/Cosh[x],{x,0,nn}],x] Range[ 0,nn]!] (* _Harvey P. Dale_, Oct 01 2014 *)
%K sign,easy
%O 0,6
%A _R. H. Hardin_
%E Extended with signs by _Olivier Gérard_, Mar 15 1997
%E Definition clarified and prior Mathematica program replaced by _Harvey P. Dale_, Oct 01 2014
|
