A013437 sec(arcsin(x)-arctanh(x))=1+10/6!*x^6+840/8!*x^8+87750/10!*x^10...

1, 0, 0, 10, 840, 87750, 12402500, 2338055850, 572148486000, 177069963820750, 67752690483757500, 31441329951467231250, 17409362545770168545000, 11342985795968641587093750, 8592815549188913685325312500

Offset

0,4

Links

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

Mathematica

With[{nn=30}, Take[CoefficientList[Series[Sec[ArcSin[x]-ArcTanh[x]], {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, Aug 16 2016 *)

Crossrefs

Sequence in context: A013438 A013434 A013436 * A246599 A006714 A203533

Adjacent sequences: A013434 A013435 A013436 * A013438 A013439 A013440

Keyword

nonn

Author

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

Status

approved