A013388 - OEIS

%I #6 May 15 2023 11:39:36

%S 1,0,0,-3,0,-23,90,-721,3864,-47879,326214,-4585141,40991676,

%T -647541971,7059334282,-125142649633,1612242903824,-31683946165871,

%U 471247352116174,-10177278274781101,171640057469660548

%N 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...

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

%K sign

%O 0,4

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

%E Definition clarified by _Harvey P. Dale_, May 15 2023