A013434 cos(arcsin(x)-arctanh(x))=1-10/6!*x^6-840/8!*x^8-87750/10!*x^10...

1, 0, 0, -10, -840, -87750, -12310100, -2287605450, -549013374000, -166031512396750, -61922192590147500, -27960041702488691250, -15045975711682274645000, -9519627048988069071093750

Offset

0,4

Links

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

Mathematica

With[{nn=30}, Take[CoefficientList[Series[Cos[ArcSin[x]-ArcTanh[x]], {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, Nov 12 2014 *)

Crossrefs

Sequence in context: A013383 A013387 A013438 * A013436 A013437 A246599

Adjacent sequences: A013431 A013432 A013433 * A013435 A013436 A013437

Keyword

sign

Author

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

Status

approved