A013419 E.g.f.: cos(arcsin(x)-arcsinh(x))=1-40/6!*x^6-108000/10!*x^10+246400/12!*x^12...

1, 0, 0, -40, 0, -108000, 246400, -1647734400, 11531520000, -85195294912000, 1210714801920000, -11246246283767040000, 269211710490511360000, -3174485131400558976000000, 114873496767979282944000000

Offset

0,4

Links

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

Mathematica

With[{nn=30}, Take[CoefficientList[Series[Cos[ArcSin[x]-ArcSinh[x]], {x, 0, nn}], x]Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, May 27 2012 *)

Crossrefs

Sequence in context: A247404 A013373 A013375 * A013420 A156917 A176644

Adjacent sequences: A013416 A013417 A013418 * A013420 A013421 A013422

Keyword

sign

Author

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

Extensions

Definition clarified by Harvey P. Dale, May 27 2012

Status

approved