A013317 Expansion of e.g.f.: tanh(exp(x) - cos(x)) = x + (2/2!)*x^2 - (1/3!)*x^3 - (24/4!)*x^4 - (123/5!)*x^5 + ...

0, 1, 2, -1, -24, -123, 2, 5987, 54544, 66441, -4948798, -71261177, -226393992, 9534896269, 201964922434, 1166083278955, -34861258001632, -1052810665903343, -9456771887276926, 211545075206125327

Offset

0,3

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[Tanh[Exp[x]-Cos[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Mar 05 2023 *)

Crossrefs

Sequence in context: A101179 A184295 A013313 * A010256 A087452 A317385

Adjacent sequences: A013314 A013315 A013316 * A013318 A013319 A013320

Keyword

sign

Author

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

Extensions

Zero prepended and definition clarified by Harvey P. Dale, Mar 05 2023

Offset corrected for above change by Sean A. Irvine, Mar 19 2023

Status

approved