A013233 Expansion of e.g.f.: sech(log(x+1)-arcsin(x)).

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.

Example

sech(log(x+1)-arcsin(x)) = 1 - 3/4!*x^4 + 10/5!*x^5 - 100/6!*x^6 + 525/7!*x^7 ...

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: A240512 A065924 A395625 * A013226 A013231 A013232

Adjacent sequences: A013230 A013231 A013232 * A013234 A013235 A013236

Keyword

sign

Author

Patrick Demichel

Extensions

Definition clarified by Harvey P. Dale, Oct 14 2019

Status

approved