A009148 Expansion of cosh(sin(x)*log(1+x)).

1, 0, 0, 0, 12, -60, 210, -1260, 11760, -114912, 1111560, -11676720, 138570696, -1799232864, 25005472128, -371229549600, 5885388887040, -99270313446784, 1773606197591232, -33452898176207232, 664355584657373312

Offset

0,5

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[Cosh[Sin[x]*Log[1+x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Mar 10 2025 *)

Crossrefs

Sequence in context: A012583 A009049 A012577 * A012581 A012288 A012582

Adjacent sequences: A009145 A009146 A009147 * A009149 A009150 A009151

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, Mar 10 2025

Status

approved