A013346 cos(sin(x)-arcsin(x))=1-40/6!*x^6-896/8!*x^8-62304/10!*x^10...

1, 0, 0, -40, -896, -62304, -6036096, -878453888, -172356091904, -44229410876928, -14356887611836416, -5752160769829099520, -2787961066322579554304, -1607823657408554342604800

Offset

0,4

Links

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

Mathematica

With[{nn=30}, Take[CoefficientList[Series[Cos[Sin[x]-ArcSin[x]], {x, 0, nn}], x] Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, Jul 10 2019 *)

Crossrefs

Sequence in context: A054340 A271030 A013350 * A013348 A013349 A140220

Adjacent sequences: A013343 A013344 A013345 * A013347 A013348 A013349

Keyword

sign

Author

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

Status

approved