%I #6 Jun 19 2018 11:19:26
%S 1,0,0,0,-3,30,-180,1113,-7959,54684,-326214,1420595,4070649,
%T -267497802,5659842188,-96370811565,1502630963281,-22116660281384,
%U 303797514676022,-3707479843755885,33686225612995313
%N Expansion of e.g.f.: sech(log(x+1)-sin(x))=1-3/4!*x^4+30/5!*x^5-180/6!*x^6+1113/7!*x^7...
%t With[{nn=20},CoefficientList[Series[Sech[Log[x+1]-Sin[x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Jun 19 2018 *)
%K sign
%O 0,5
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E Definition clarified by _Harvey P. Dale_, Jun 19 2018
|