A013233 Expansion of e.g.f.: sech(log(x+1)-arcsin(x))=1-3/4!*x^4+10/5!*x^5-100/6!*x^6+525/7!*x^7...

1, 0, 0, 0, -3, 10, -100, 525, -4935, 32940, -339750, 2618275, -30387775, 251013750, -3301268100, 26222434875, -400587471375, 2197651183000, -45694778418250, -233584427890125, -1331937583104375

Offset

0,5

Links

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

Mathematica

With[{nn=30}, CoefficientList[Series[Sech[Log[x+1]-ArcSin[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Oct 14 2019 *)

Crossrefs

Sequence in context: A181079 A240512 A065924 * A013226 A013231 A013232

Adjacent sequences: A013230 A013231 A013232 * A013234 A013235 A013236

Keyword

sign

Author

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

Extensions

Definition clarified by Harvey P. Dale, Oct 14 2019

Status

approved