login
A009062
Expansion of e.g.f.: cos(sinh(x)*log(1+x)).
1
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
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
KEYWORD
sign,easy
AUTHOR
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