A013014 Expansion of e.g.f. sin(sinh(x) + log(x+1)).

0, 2, -1, -5, 18, -93, 375, -1822, 10612, -71055, 573435, -5134802, 51076674, -550129175, 6366454731, -78567215552, 1026191286600, -14090173919607, 201683878875351, -2979525371014106, 44794367995995870, -669951379896225467, 9530970253376080047, -114149386121986516660

Offset

0,2

Links

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

Example

2*x - 1/2!*x^2 - 5/3!*x^3 + 18/4!*x^4 - 93/5!*x^5 ...

Mathematica

With[{nn=30}, Drop[CoefficientList[Series[Sin[Sinh[x] + Log[x+1]], {x, 0, nn}], x] Range[0, nn]!]] (* Vincenzo Librandi Jul 30 2018 *)

Prog

(PARI) x = 'x + O('x^30); concat([0], Vec(serlaplace(sin(sinh(x) + log(x+1))))) \\ Michel Marcus, Jul 30 2018

Crossrefs

Sequence in context: A192264 A144054 A144058 * A012905 A254677 A184298

Adjacent sequences: A013011 A013012 A013013 * A013015 A013016 A013017

Keyword

sign

Author

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

Extensions

a(0)=0 inserted and title improved by Sean A. Irvine, Jul 30 2018

Status

approved