A009572 Expansion of e.g.f. sinh(log(1+x))*cos(x).

0, 1, -1, 0, -6, 35, -195, 1358, -10892, 98037, -980325, 10783564, -129402834, 1682236855, -23551315879, 353269738170, -5652315810840, 96089368784297, -1729608638117193, 32862564124226648, -657251282484533150

Offset

0,5

Links

G. C. Greubel, Table of n, a(n) for n = 0..448

Formula

a(n) ~ n! * (-1)^(n+1) * cos(1) / 2. - Vaclav Kotesovec, Jan 23 2015

Mathematica

With[{nn=30}, CoefficientList[Series[Sinh[Log[1+x]]Cos[x], {x, 0, nn}], x]Range[0, nn]!] (* Harvey P. Dale, Mar 09 2012 *)
CoefficientList[Series[(x*(2 + x)*Cos[x])/(2*(1 + x)), {x, 0, 20}], x] * Range[0, 20]! (* Vaclav Kotesovec, Jan 23 2015 *)

Prog

(PARI) x='x+O('x^30); concat([0], Vec(serlaplace(sinh(log(1+x))*cos(x)))) \\ G. C. Greubel, Jan 21 2018

Crossrefs

Sequence in context: A274373 A328331 A346318 * A027202 A026934 A171311

Adjacent sequences: A009569 A009570 A009571 * A009573 A009574 A009575

Keyword

sign,easy

Author

R. H. Hardin

Extensions

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

Status

approved