A009430 Expansion of log(1+x)/cosh(log(1+x)).

0, 1, -1, -1, 12, -56, 180, -204, -2688, 26496, -103680, -679680, 18627840, -229063680, 1990759680, -12036729600, 40874803200, -365550796800, 21248859340800, -696906569318400, 16303221817344000, -317662379016192000

Offset

0,5

Links

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

Formula

a(n) ~ (n-1)! * 2 * (-1)^n / n. - Vaclav Kotesovec, Jan 23 2015

Mathematica

Log[ 1+x ]/Cosh[ Log[ 1+x ] ]
CoefficientList[Series[(2*(1 + x)*Log[1 + x])/(1 + (1 + x)^2), {x, 0, 20}], x] * Range[0, 20]! (* Vaclav Kotesovec, Jan 23 2015 *)

Crossrefs

Sequence in context: A212507 A212508 A331771 * A348584 A035289 A275505

Adjacent sequences: A009427 A009428 A009429 * A009431 A009432 A009433

Keyword

sign,easy

Author

R. H. Hardin

Extensions

Extended with signs by Olivier Gérard, Mar 15 1997

Status

approved