A009464 Expansion of e.g.f.: sin(log(1+x)*exp(x)).

0, 1, 1, 1, -6, -25, -155, -275, -1764, 11489, -10787, 1096709, -3898114, 91374439, -918833799, 12516903737, -187393123592, 2698255174081, -45136473911271, 755066948613897, -13675842977455934, 257889498152762215

Offset

0,5

Links

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

Mathematica

With[{nn=30}, CoefficientList[Series[Sin[Log[1+x]*Exp[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jul 06 2021 *)

Crossrefs

Sequence in context: A357089 A242858 A200375 * A042529 A323132 A357032

Adjacent sequences: A009461 A009462 A009463 * A009465 A009466 A009467

Keyword

sign,easy

Author

R. H. Hardin

Extensions

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

Previous Mathematica program replaced and definition clarified by Harvey P. Dale, Jul 06 2021

Status

approved