%I #6 Mar 07 2015 18:17:53
%S 1,0,0,0,-3,10,-100,693,-5383,47052,-404934,3834435,-36703359,
%T 357872502,-3463205876,30476792955,-198853998991,-654085861096,
%U 67344661591926,-2023504421641677,49767870277602057
%N E.g.f.: sech(log(x+1)-sinh(x))=1-3/4!*x^4+10/5!*x^5-100/6!*x^6+693/7!*x^7...
%t With[{nn=30},CoefficientList[Series[Sech[Log[x+1]-Sinh[x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Mar 07 2015 *)
%K sign
%O 0,5
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E Definition clarified by _Harvey P. Dale_, Mar 07 2015
|