%I #13 Apr 01 2017 11:36:53
%S 1,1,1,-3,-15,-3,297,1113,-6783,-77063,70609,5509845,18558705,
%T -430006731,-4027228359,33282260529,727421677185,-1454472663311,
%U -134584692783455,-448480622503635,26232888936219249,254015086363619949
%N Expansion of e.g.f.: exp(sin(x)/cosh(x)).
%t With[{nn=30},CoefficientList[Series[Exp[Sin[x]/Cosh[x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Sep 26 2016 *)
%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_, Sep 26 2016
|