A009467 Expansion of sin(log(1+x)/exp(x)).

0, 1, -3, 7, -6, -125, 1745, -17873, 166908, -1485319, 12508457, -93553781, 466864222, 2900675947, -158026529323, 3854302742747, -79552171943368, 1548695456005553, -29548490392005579, 562097583466634703

Offset

0,3

Links

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

Mathematica

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

Crossrefs

Sequence in context: A213401 A363146 A013564 * A258982 A227336 A373862

Adjacent sequences: A009464 A009465 A009466 * A009468 A009469 A009470

Keyword

sign,easy

Author

R. H. Hardin

Extensions

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

Status

approved