A009463 Expansion of e.g.f.: sin(log(1+x)*cosh(x)).

0, 1, -1, 4, -6, -15, 255, -2984, 27972, -270715, 2655315, -27141996, 290213814, -3244179419, 37924786627, -461313190168, 5805782143080, -74822106476983, 970988704302663, -12286902933891708, 140375955767835090

Offset

0,4

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[Sin[Log[1+x]*Cosh[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Apr 06 2018 *)

Crossrefs

Sequence in context: A086714 A356801 A239323 * A066260 A248591 A333140

Adjacent sequences: A009460 A009461 A009462 * A009464 A009465 A009466

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, Apr 06 2018

Status

approved