A013018 E.g.f.: cos(sinh(x)+log(x+1))=1-4/2!*x^2+6/3!*x^3-11/4!*x^4+10/5!*x^5...

1, 0, -4, 6, -11, 10, 116, -903, 7669, -62820, 584106, -6060285, 69017733, -857566866, 11474282452, -164562121605, 2516384673833, -40876884428072, 703053573168198, -12765095626090149, 244021356047525393

Offset

0,3

Links

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

Mathematica

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

Crossrefs

Sequence in context: A187215 A365647 A322577 * A031271 A369329 A180713

Adjacent sequences: A013015 A013016 A013017 * A013019 A013020 A013021

Keyword

sign

Author

Patrick Demichel (patrick.demichel(AT)hp.com)

Extensions

Definition clarified by Harvey P. Dale, Jul 04 2013

Status

approved