A013341 E.g.f.: exp(sin(x)-log(x+1)).

1, 0, 1, -3, 9, -53, 315, -2149, 17409, -156617, 1563219, -17208081, 206502945, -2684228909, 37580441899, -563709546373, 9019300106369, -153328265590929, 2759909907247651, -52438275521652889, 1048765530491448353, -22024076635965333173, 484529682070755145979

Offset

0,4

Links

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

Example

 exp(sin(x)-log(x+1)) = 1 + 1/2!*x^2 - 3/3!*x^3 + 9/4!*x^4 - 53/5!*x^5 ...

Mathematica

CoefficientList[Series[Exp[Sin[x] - Log[x + 1]], {x, 0, 25}], x] Range[0, 25]! (* Vincenzo Librandi, Mar 01 2015 *)

Crossrefs

Sequence in context: A109933 A018477 A226931 * A077795 A038496 A175596

Adjacent sequences: A013338 A013339 A013340 * A013342 A013343 A013344

Keyword

sign

Author

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

Extensions

a(20)-a(22) from Vincenzo Librandi, Mar 01 2015

Status

approved