login
A013567
E.g.f. sech(log(x+1)/exp(x)).
1
1, 0, -1, 9, -54, 210, 510, -24500, 355544, -3310776, 7970880, 511460048, -14772993312, 247420878848, -2080751146656, -34093875419760, 2085552636479488, -56037789835944320, 880848150693672192
OFFSET
0,4
LINKS
EXAMPLE
sech(log(x+1)/exp(x)) = 1 - 1/2!*x^2 + 9/3!*x^3 - 54/4!*x^4 + 210/5!*x^5 - ...
MATHEMATICA
With[{nn=20}, CoefficientList[Series[Sech[Log[x+1]/Exp[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Dec 09 2015 *)
PROG
(PARI) x='x+O('x^33); Vec(serlaplace(1/cosh(log(1+x)*exp(-x)))) \\ Joerg Arndt, Nov 17 2016
CROSSREFS
Sequence in context: A093846 A152994 A034719 * A073974 A223927 A307045
KEYWORD
sign
AUTHOR
Patrick Demichel (patrick.demichel(AT)hp.com), Dec 11 1996
STATUS
approved