The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 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 (list; graph; refs; listen; history; text; internal format)
 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:=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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified September 23 10:45 EDT 2023. Contains 365544 sequences. (Running on oeis4.)