%I #11 Jul 19 2018 02:57:21
%S 0,1,2,2,8,88,560,3880,48064,645376,8447488,129332480,2305269760,
%T 43823270528,893173681920,19883237893376,476731844235264,
%U 12171513901662208,330755844515020800,9543303550734733312,291053885585803034624,9354941906907855192064
%N Expansion of e.g.f. arcsin(arctan(x) * exp(x)).
%H Vincenzo Librandi, <a href="/A012410/b012410.txt">Table of n, a(n) for n = 0..200</a>
%p x + 2/2!*x^2 + 2/3!*x^3 + 8/4!*x^4 + 88/5!*x^5 ...
%t Range[0, 20]! CoefficientList[Series[ArcSin[ArcTan[x] Exp[x]], {x, 0, 20}], x] (* _Vincenzo Librandi_, Jul 19 2018 *)
%o (PARI) x = 'x + O('x^30); concat([0], Vec(serlaplace(asin(atan(x) * exp(x))))) \\ _Michel Marcus_, Jul 19 2018
%K nonn
%O 0,3
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E a(0) inserted and title improved by _Sean A. Irvine_, Jul 18 2018
|