A013392 cos(sin(x)-arctanh(x))=1-90/6!*x^6-3864/8!*x^8-326214/10!*x^10...

1, 0, 0, -90, -3864, -326214, -38496876, -6363118762, -1391451773264, -390207547318222, -136581823796686036, -58397588436566980370, -29960029691855345080504, -18169010205146250870789750

Offset

0,4

Links

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

Mathematica

With[{nn=30}, Take[CoefficientList[Series[Cos[Sin[x]-ArcTanh[x]], {x, 0, nn}], x] Range[ 0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, Sep 07 2022 *)

Crossrefs

Sequence in context: A065950 A058830 A013396 * A013394 A013395 A203733

Adjacent sequences: A013389 A013390 A013391 * A013393 A013394 A013395

Keyword

sign

Author

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

Status

approved