%I #13 Mar 02 2023 12:47:36
%S 1,0,1,-9,64,-510,5140,-62650,868516,-13417104,229831820,-4334605748,
%T 89205406112,-1988081805528,47701228486496,-1226141059648440,
%U 33617215231898512,-979251053876769920,30201854389236416848
%N Expansion of e.g.f. sec(log(x+1)/exp(x)).
%H G. C. Greubel, <a href="/A013566/b013566.txt">Table of n, a(n) for n = 0..400</a>
%F E.g.f.: sec(log(x+1)/exp(x)).
%e sec(log(x+1)/exp(x)) = 1 + 1/2!*x^2 - 9/3!*x^3 + 64/4!*x^4 - 510/5!*x^5 + ..
%t CoefficientList[Series[Sec[Log[x + 1]/Exp[x]], {x, 0, 40}], x] Range[0, 40]! (* _G. C. Greubel_, Nov 15 2016 *)
%o (PARI) for(n=0,15, print1(n!*polcoeff(1/cosh(ln(1+x)*exp(-x)), n), ", ")) \\ _G. C. Greubel_, Nov 16 2016
%K sign
%O 0,4
%A Patrick Demichel (patrick.demichel(AT)hp.com)
|