%I #6 Jun 27 2018 18:51:43
%S 1,0,1,-3,28,-160,1510,-13860,162188,-2015928,28741220,-442050620,
%T 7490417768,-136676535840,2694128185424,-56789020808520,
%U 1278027412615632,-30539597036104512,772903901239459408
%N Expansion of e.g.f.: sec(cosh(x)*log(x+1))=1+1/2!*x^2-3/3!*x^3+28/4!*x^4-160/5!*x^5...
%t With[{nn=20},CoefficientList[Series[Sec[Cosh[x]Log[x+1]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Jun 27 2018 *)
%K sign
%O 0,4
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E Definition clarified by _Harvey P. Dale_, Jun 27 2018
|