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

0, 1, 1, 1, 2, -5, 41, -289, 2316, -20383, 196965, -2077319, 23780646, -293954869, 3904755557, -55497739465, 840656150296, -13523247084319, 230285930161321, -4139153666264303, 78317988438360330

Offset

0,5

Links

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

Mathematica

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

Crossrefs

Sequence in context: A054553 A185052 A088547 * A175172 A218057 A126469

Adjacent sequences: A009454 A009455 A009456 * A009458 A009459 A009460

Keyword

sign

Author

R. H. Hardin

Status

approved