|
%I #10 Jul 20 2018 03:13:06
%S 0,1,2,1,-12,-67,-50,2917,31752,49849,-3711302,-59694967,-115031620,
%T 13336031733,273381245254,558981564013,-100703000514928,
%U -2505740944272783,-5344180827839502,1386297984879140881,40546775857977524228,85953748442906064173,-31561185255306611700930
%N Expansion of e.g.f. arcsinh(arcsinh(x) * exp(x)).
%H Vincenzo Librandi, <a href="/A012590/b012590.txt">Table of n, a(n) for n = 0..300</a>
%e x + 2/2!*x^2 + 1/3!*x^3 - 12/4!*x^4 - 67/5!*x^5 ...
%t Range[0, 30]! CoefficientList[Series[ArcSinh[ArcSinh[x] Exp[x]], {x, 0, 30}], 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 20 2018
|
