A013567 E.g.f. sech(log(x+1)/exp(x)).

1, 0, -1, 9, -54, 210, 510, -24500, 355544, -3310776, 7970880, 511460048, -14772993312, 247420878848, -2080751146656, -34093875419760, 2085552636479488, -56037789835944320, 880848150693672192

Offset

0,4

Links

G. C. Greubel, Table of n, a(n) for n = 0..400

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

Adjacent sequences: A013564 A013565 A013566 * A013568 A013569 A013570

Keyword

sign

Author

Patrick Demichel (patrick.demichel(AT)hp.com), Dec 11 1996

Status

approved