A009395 Expansion of e.g.f.: log(1 + tanh(x)*exp(x)).

0, 1, 1, -3, -2, 45, -74, -1113, 7288, 27465, -647894, 1393227, 59935228, -604628115, -4418438114, 143982353967, -381525392432, -30072901507695, 405576151229266, 4636550476777107, -187783513074129692, 514355533864732725

Offset

0,4

Links

Matthew House, Table of n, a(n) for n = 0..451

Formula

E.g.f.: log(1 + tanh(x)*exp(x)).

Maple

egf:= log(1+tanh(x)*exp(x)):
S:= series(egf, x, 61):
seq(coeff(S, x, j)*j!, j=0..60); # Robert Israel, Aug 05 2015

Mathematica

Range[0, 25]! CoefficientList[Series[Log[1 + Tanh[x] Exp[x]], {x, 0, 25}], x] (* Vincenzo Librandi, Aug 04 2015 *)

Prog

(PARI) Vec(serlaplace(log(tanh(x)*exp(x) + 1))) \\ Charles R Greathouse IV, Sep 26 2017

Crossrefs

Sequence in context: A321169 A093398 A002680 * A339513 A226769 A331474

Adjacent sequences: A009392 A009393 A009394 * A009396 A009397 A009398

Keyword

sign,easy

Author

R. H. Hardin

Extensions

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

Status

approved