login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A009053 Expansion of e.g.f. cos(sinh(log(1+x))). 1
1, 0, -1, 3, -14, 80, -526, 3906, -32192, 290016, -2816056, 29050120, -313052024, 3442154352, -37060529416, 353733158520, -1866295941824, -42066299646976, 2247562825065152, -73960387213018176, 2159580310527713536 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,4

LINKS

Vincenzo Librandi, Table of n, a(n) for n = 0..200

MATHEMATICA

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

PROG

(PARI) x='x+O('x^30); Vec(serlaplace(cos(sinh(log(1+x))))) \\ G. C. Greubel, Jul 23 2018

(MAGMA) m:=30; R<x>:=PowerSeriesRing(Rationals(), m); b:=Coefficients(R!(Cos(Sinh(Log(1+x))))); [Factorial(n-1)*b[n]: n in [1..m]]; // G. C. Greubel, Jul 23 2018

CROSSREFS

Sequence in context: A107596 A212391 A000264 * A202474 A256336 A256338

Adjacent sequences:  A009050 A009051 A009052 * A009054 A009055 A009056

KEYWORD

sign,easy

AUTHOR

R. H. Hardin

EXTENSIONS

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

Mathematica program replaced by Harvey P. Dale, Oct 19 2013

STATUS

approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified February 17 15:19 EST 2019. Contains 320220 sequences. (Running on oeis4.)