A009417 Expansion of log(1+x)*exp(sin(x)).

0, 1, 1, 2, -4, -1, -69, 321, -1744, 17289, -151169, 1476925, -16575340, 199103189, -2588516917, 36353994873, -546329845632, 8754613833201, -149061793849185, 2686816882818229, -51112881539898028, 1023425692313274509

Offset

0,4

Links

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

Formula

a(n) ~ (n-1)! * (-1)^(n+1) * exp(-sin(1)). - Vaclav Kotesovec, Jan 23 2015

Mathematica

Log[ 1+x ]*Exp[ Sin[ x ] ]
CoefficientList[Series[E^Sin[x]*Log[1 + x], {x, 0, 20}], x] * Range[0, 20]! (* Vaclav Kotesovec, Jan 23 2015 *)

Crossrefs

Sequence in context: A045497 A117258 A152285 * A009451 A321330 A345080

Adjacent sequences: A009414 A009415 A009416 * A009418 A009419 A009420

Keyword

sign,easy

Author

R. H. Hardin

Extensions

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

Status

approved