A009267 Expansion of exp(tanh(x)*cos(x)).

1, 1, 1, -4, -19, -8, 397, 1752, -7943, -117312, -64551, 7882624, 43466469, -537535360, -7570028763, 27307332608, 1224976528753, 2518262718464, -203222727578703, -1691557864632320, 33945910273599581, 611413449329426432

Offset

0,4

Links

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

Mathematica

With[{nn=30}, CoefficientList[Series[Exp[Tanh[x]*Cos[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, May 07 2021 *)

Crossrefs

Sequence in context: A012496 A024572 A357818 * A009275 A362249 A070612

Adjacent sequences: A009264 A009265 A009266 * A009268 A009269 A009270

Keyword

sign,easy

Author

R. H. Hardin

Extensions

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

Previous Mathematica program replaced by Harvey P. Dale, May 07 2021

Status

approved