A013495 Expansion of e.g.f.: exp(tanh(x)-log(x+1))=1+1/2!*x^2-4/3!*x^3+9/4!*x^4-48/5!*x^5...

1, 0, 1, -4, 9, -48, 385, -2420, 17297, -170688, 1760289, -18395012, 219987801, -2936841776, 40948952993, -606801250484, 9752505856033, -166636197964032, 2990053004436417, -56703580249101188

Offset

0,4

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[Exp[Tanh[x]-Log[x+1]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jan 15 2015 *)

Crossrefs

Sequence in context: A103933 A256880 A327699 * A164839 A225885 A247267

Adjacent sequences: A013492 A013493 A013494 * A013496 A013497 A013498

Keyword

sign

Author

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

Extensions

Definition clarified by Harvey P. Dale, Jan 15 2015

Status

approved