A009361 - OEIS

%I #16 May 23 2024 16:12:44

%S 0,1,-1,6,-22,140,-976,8456,-83952,957840,-12249856,174293856,

%T -2725714432,46514037440,-859767771136,17115342333056,

%U -365039421683712,8304761365213440,-200743169243938816,5137820023434733056,-138802582805546401792,3947233200665413667840

%N Expansion of e.g.f.: log(1+sinh(x)/cos(x)).

%t With[{nn=20},CoefficientList[Series[Log[1+Sinh[x]/Cos[x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Apr 19 2018 *)

%K sign,easy

%O 0,4

%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_, Apr 19 2018