A009461 Expansion of e.g.f.: sin(log(1+x))/exp(x).

0, 1, -3, 7, -14, 15, 109, -1507, 14988, -146311, 1494945, -16290969, 190291542, -2382532633, 31911488361, -455996792755, 6931146231704, -111739259567727, 1905221401398053, -34267059287580761, 648529389183031290

Offset

0,3

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[Sin[Log[1+x]]/Exp[x], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Aug 27 2014 *)

Crossrefs

Sequence in context: A128661 A175339 A361969 * A143630 A342732 A218877

Adjacent sequences: A009458 A009459 A009460 * A009462 A009463 A009464

Keyword

sign,easy

Author

R. H. Hardin

Extensions

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

Definition clarified and prior Mathematica program replaced by Harvey P. Dale, Aug 27 2014

Status

approved