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

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

Offset

1,3

Links

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

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 *)

Crossrefs

Sequence in context: A360507 A306827 A028856 * A260232 A262366 A128029

Adjacent sequences: A013494 A013495 A013496 * A013498 A013499 A013500

Keyword

sign

Author

Patrick Demichel (patrick.demichel(AT)hp.com)

Extensions

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

Status

approved