A013388 Expansion of e.g.f.: exp(sin(x)-arctanh(x))=1-3/3!*x^3-23/5!*x^5+90/6!*x^6-721/7!*x^7...

1, 0, 0, -3, 0, -23, 90, -721, 3864, -47879, 326214, -4585141, 40991676, -647541971, 7059334282, -125142649633, 1612242903824, -31683946165871, 471247352116174, -10177278274781101, 171640057469660548

Offset

0,4

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[Exp[Sin[x]-ArcTanh[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, May 15 2023 *)

Crossrefs

Sequence in context: A370015 A328341 A013460 * A344996 A057379 A360063

Adjacent sequences: A013385 A013386 A013387 * A013389 A013390 A013391

Keyword

sign

Author

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

Extensions

Definition clarified by Harvey P. Dale, May 15 2023

Status

approved