A013280 sec(log(x+1)-arcsinh(x))=1+3/4!*x^4-30/5!*x^5+180/6!*x^6-945/7!*x^7...

1, 0, 0, 0, 3, -30, 180, -945, 7665, -94500, 1124550, -12525975, 156808575, -2347294950, 37345908600, -602685208125, 10429905110625, -198454585329000, 3981241066052250, -82461126798925875

Offset

0,5

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[Sec[Log[x+1]-ArcSinh[x]], {x, 0, nn}], x]Range[0, nn]!] (* Harvey P. Dale, Oct 28 2012 *)

Crossrefs

Sequence in context: A013281 A013274 A013279 * A013221 A013214 A013219

Adjacent sequences: A013277 A013278 A013279 * A013281 A013282 A013283

Keyword

sign

Author

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

Status

approved