A012588 - OEIS

%I #12 Jul 20 2018 03:12:56

%S 0,1,2,0,-24,-132,40,8568,83328,-44272,-13222112,-182425408,173064320,

%T 53699598912,947897491840,-1462598830976,-450248068501504,

%U -9631043314112256,21880384337367552,6765800654464927744,169339160025954805760,-532061075701090923520,-165698959735673781516288

%N Expansion of e.g.f. arctan(arcsinh(x) * exp(x)).

%H Vincenzo Librandi, <a href="/A012588/b012588.txt">Table of n, a(n) for n = 0..300</a>

%e x + 2/2!*x^2 - 24/4!*x^4 - 132/5!*x^5 + 40/6!*x^6 ...

%t Range[0, 19]! CoefficientList[Series[ArcTan[ArcSinh[x] Exp[x]], {x, 0, 19}], x] (* _Vincenzo Librandi_, Jul 20 2018 *)

%K sign

%O 0,3

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

%E a(0) inserted and title improved by _Sean A. Irvine_, Jul 19 2018