A009172 Expansion of e.g.f.: cosh(tanh(x)*log(1+x)).

1, 0, 0, 0, 12, -60, 90, -420, 12320, -124992, 753480, -6481200, 110644776, -1613081184, 18917874976, -250425171360, 4359533351680, -78311204695424, 1329852024578496, -23869209971687040, 483284209880289152

Offset

0,5

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[Cosh[Tanh[x]Log[1+x]], {x, 0, nn}], x] Range[ 0, nn]!] (* Harvey P. Dale, Apr 25 2014 *)

Crossrefs

Sequence in context: A012407 A009093 A012400 * A012405 A012657 A012406

Adjacent sequences: A009169 A009170 A009171 * A009173 A009174 A009175

Keyword

sign,easy

Author

R. H. Hardin

Extensions

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

Definition clarified and prior Mathematica program replaced by Harvey P. Dale, Apr 25 2014

Status

approved