A013212 Expansion of e.g.f. tan(log(x+1) - sin(x)).

0, 0, -1, 3, -6, 23, -150, 1351, -12600, 118187, -1217160, 14287141, -188257608, 2702562653, -41510829360, 680290364755, -11907404789280, 222160337026823, -4398121126494144, 91965696132459313

Offset

0,4

Links

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

Example

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

Mathematica

With[{nn=20}, Drop[CoefficientList[Series[Tan[Log[x+1]-Sin[x]], {x, 0, nn}], x] Range[0, nn]!, 2]] (* Harvey P. Dale, Nov 06 2011 *)

Crossrefs

Sequence in context: A264792 A013215 A013211 * A013218 A101738 A083525

Adjacent sequences: A013209 A013210 A013211 * A013213 A013214 A013215

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