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

0, 1, 0, -5, 12, -14, 120, -1238, 6608, -30092, 279360, -3130852, 26571600, -212970328, 2311816416, -27582585592, 262039232640, -1763092281712, 1470511954944, 439606528588592, -18342263739368000, 558461845910267936, -15219479141544881280, 406782245791659905440

Offset

0,4

Links

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

Mathematica

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

Crossrefs

Sequence in context: A037007 A357999 A066025 * A286276 A314273 A087090

Adjacent sequences: A009821 A009822 A009823 * A009825 A009826 A009827

Keyword

sign,easy

Author

R. H. Hardin

Extensions

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

Definition clarified and previous Mathematica program replaced by Harvey P. Dale, Sep 17 2016

Status

approved