A009062 Expansion of e.g.f.: cos(sinh(x)*log(1+x)).

1, 0, 0, 0, -12, 60, -450, 2940, -20720, 155232, -1186920, 9474960, -74648376, 552593184, -3012161152, -10103577120, 836086634240, -22797582691456, 523741123519296, -11502212537522304, 251821773466887808

Offset

0,5

Links

G. C. Greubel, Table of n, a(n) for n = 0..250

Maple

seq(coeff(series(factorial(n)*cos(sinh(x)*log(x+1)), x, n+1), x, n), n=0..25); # Muniru A Asiru, Jul 24 2018

Mathematica

With[{nn=20}, CoefficientList[Series[Cos[Sinh[x]*Log[1+x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Sep 06 2015 *)

Prog

(PARI) x='x+O('x^30); Vec(serlaplace(cos(sinh(x)*log(1+x)))) \\ G. C. Greubel, Jul 23 2018
(Magma) m:=30; R<x>:=PowerSeriesRing(Rationals(), m); b:=Coefficients(R!(Cos(Sinh(x)*Log(1+x)))); [Factorial(n-1)*b[n]: n in [1..m]]; // G. C. Greubel, Jul 23 2018

Crossrefs

Sequence in context: A127869 A012518 A012315 * A012308 A009154 A012313

Adjacent sequences: A009059 A009060 A009061 * A009063 A009064 A009065

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, Sep 06 2015

Status

approved