A009163 Expansion of e.g.f.: cosh(tan(x)*log(1+x)).

1, 0, 0, 0, 12, -60, 570, -3780, 36960, -326592, 3712200, -41836080, 554861736, -7563345504, 114963916704, -1819859452320, 31173297642240, -558346710891904, 10642982507666880, -212150797420894848, 4456607540110934912

Offset

0,5

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[Cosh[Tan[x]*Log[1+x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jul 14 2022 *)

Crossrefs

Sequence in context: A012708 A009077 A012702 * A012706 A012359 A012707

Adjacent sequences: A009160 A009161 A009162 * A009164 A009165 A009166

Keyword

sign,easy

Author

R. H. Hardin

Extensions

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

Previous Mathematica program replaced and definition clarified by Harvey P. Dale, Jul 14 2022

Status

approved