A009783 Expansion of e.g.f.: tanh(log(1+x)*cos(x)).

0, 1, -1, -3, 12, 15, -375, 819, 13888, -108483, -551925, 13545961, -22418484, -1621656517, 14484838277, 186206989903, -4523278283040, -3719219044807, 1200472177117815, -10141780669451755, -290942811953148500

Offset

0,4

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[Tanh[Log[1+x]*Cos[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jun 30 2021 *)

Crossrefs

Sequence in context: A096854 A013191 A332959 * A341013 A192786 A277738

Adjacent sequences: A009780 A009781 A009782 * A009784 A009785 A009786

Keyword

sign,easy

Author

R. H. Hardin

Extensions

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

Definition (Name) clarified by and previous Mathematica program replaced by Harvey P. Dale, Jun 30 2021

Status

approved