A013396 E.g.f.: sech(sin(x)-arctanh(x))=1-90/6!*x^6-3864/8!*x^8-326214/10!*x^10...

1, 0, 0, -90, -3864, -326214, -33507276, -4970687722, -949869512144, -236464361818318, -73751391110641012, -28454096973841135058, -13304169550531141566328, -7432891904926457008929270

Offset

0,4

Links

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

Mathematica

With[{nn=30}, Take[CoefficientList[Series[Sech[Sin[x]-ArcTanh[x]], {x, 0, nn}], x]Range[0, nn]!, {1, -1, 2}]] (* Harvey P. Dale, Jul 04 2012 *)

Crossrefs

Sequence in context: A240426 A065950 A058830 * A013392 A013394 A013395

Adjacent sequences: A013393 A013394 A013395 * A013397 A013398 A013399

Keyword

sign

Author

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

Extensions

Definition clarified by Harvey P. Dale, Jul 04 2012

Status

approved