A013456 Expansion of e.g.f.: exp(tan(x)-arctanh(x))=1-8/5!*x^5-448/7!*x^7-32384/9!*x^9+8064/10!*x^10...

1, 0, 0, 0, 0, -8, 0, -448, 0, -32384, 8064, -3275008, 2838528, -456633344, 863070208, -85339110400, 280413765632, -20783183790080, 103486230003712, -6429447050002432, 44250652523855872

Offset

0,6

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[Exp[Tan[x]-ArcTanh[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Dec 27 2015 *)

Crossrefs

Sequence in context: A013376 A221421 A371990 * A180738 A076107 A076952

Adjacent sequences: A013453 A013454 A013455 * A013457 A013458 A013459

Keyword

sign

Author

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

Extensions

Definition clarified by Harvey P. Dale, Dec 27 2015

Status

approved