A012654 E.g.f.: sinh(tanh(x)*log(x+1))=2/2!*x^2-3/3!*x^3-10/5!*x^5+280/6!*x^6...

0, 0, 2, -3, 0, -10, 280, -2016, 7728, -50184, 925888, -11789800, 105844640, -1138494864, 18956325232, -310531760280, 4485718813184, -69904446374848, 1305162861566976, -25605760011368832, 494580429732524288

Offset

0,3

Links

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

Mathematica

With[{nn=30}, CoefficientList[Series[Sinh[Tanh[x]Log[x+1]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Mar 17 2015 *)

Crossrefs

Sequence in context: A012397 A012402 A177700 * A012651 A012401 A012398

Adjacent sequences: A012651 A012652 A012653 * A012655 A012656 A012657

Keyword

sign

Author

Patrick Demichel

Extensions

Definition clarified and initial zeros added by Harvey P. Dale, Mar 17 2015

Status

approved