%I #8 Oct 30 2013 19:50:10

%S 0,1,2,4,0,-60,-488,-1416,20160,427280,3830432,-7233536,-955342080,

%T -18140316480,-120169970048,3583792700544,145171043297280,

%U 2388380775676160,-7380519436860928,-1710892457585202176

%N arcsinh(tan(x)*exp(x)) = x+2/2!*x^2+4/3!*x^3-60/5!*x^5-488/6!*x^6...

%t CoefficientList[Series[ArcSinh[Tan[x]*Exp[x]], {x, 0, 20}], x]* Range[0, 20]! (* _Vaclav Kotesovec_, Oct 30 2013 *)

%K sign

%O 0,3

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

%E Prepended missing a(0)=0, _Vaclav Kotesovec_, Oct 30 2013