A013497 Expansion of e.g.f. log(cosh(x)-log(x+1)).

-1, 1, 2, 5, -13, -63, -453, 1822, 9683, 174325, -960133, -2767796, -180618579, 1333355779, -2799332651, 400791892784, -3944083024649, 32532084129049, -1656524167774985, 21382796711385164, -305269868753768647, 11576135110263861071, -190524119407765280943, 3732779656976593882032

Offset

1,3

Links

Table of n, a(n) for n=1..24.

Example

E.g.f. = -x + (1/2!)*x^2 + (2/3!)*x^3 + (5/4!)*x^4 - (13/5!)*x^5 ...

Mathematica

With[{nn=30}, Rest[CoefficientList[Series[Log[Cosh[x]-Log[x+1]], {x, 0, nn}], x] Range[0, nn]!]] (* Harvey P. Dale, Mar 30 2012 *)

Prog

(PARI) my(x='x+O('x^50)); Vec(serlaplace(log(cosh(x)-log(x+1))))

Crossrefs

Sequence in context: A360507 A306827 A028856 * A260232 A262366 A128029

Adjacent sequences: A013494 A013495 A013496 * A013498 A013499 A013500

Keyword

sign

Author

Patrick Demichel

Extensions

Offset and additional first term from R. J. Mathar, Dec 22 2011

More terms from Michel Marcus, Sep 28 2025

Status

approved