A013224 Expansion of e.g.f. tan(log(x+1) - arcsin(x)).

0, 0, -1, 1, -6, 15, -150, 705, -8120, 56315, -743400, 6903675, -103336200, 1205843925, -20238618400, 284376581125, -5302197732000, 87055019166375, -1788619770288000, 33563618929137375, -754531467461525000

Offset

0,5

Links

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

Example

-1/2!*x^2 + 1/3!*x^3 - 6/4!*x^4 + 15/5!*x^5 ...

Mathematica

Range[0, 20]! CoefficientList[ Series[ Tan[Log[x + 1] - ArcSin[x]], {x, 0, 20}], x] (* Robert G. Wilson v, Aug 01 2018 *)

Crossrefs

Sequence in context: A013223 A219289 A199224 * A013230 A306342 A117062

Adjacent sequences: A013221 A013222 A013223 * A013225 A013226 A013227

Keyword

sign

Author

Patrick Demichel (patrick.demichel(AT)hp.com)

Extensions

a(0)=a(1)=0 inserted and title improved by Sean A. Irvine, Aug 01 2018

Status

approved