%I #13 Aug 17 2017 05:54:21
%S 0,1,-9,126,-2270,49995,-1301139,39066076,-1329148764,50536328085,
%T -2123542798685,97722882268506,-4887863677728954,264025383760041631,
%U -15317578742680490535,949914821498248213560,-62707584375936061905464,4390358319593012839913001
%N Bessel polynomial {y_n}'(-2).
%D J. Riordan, Combinatorial Identities, Wiley, 1968, p. 77.
%H G. C. Greubel, <a href="/A065707/b065707.txt">Table of n, a(n) for n = 0..360</a>
%H <a href="/index/Be#Bessel">Index entries for sequences related to Bessel functions or polynomials</a>
%F From _G. C. Greubel_, Aug 14 2017: (Start)
%F a(n) = 2*n*(1/2)_{n}*(-4)^(n - 1)* hypergeometric1f1(1 - n, -2*n, -1).
%F E.g.f.: ((1 + 4*x)^(3/2) - 2*x*(1 + 4*x)^(1/2) - 1)* exp((sqrt(1 + 4*x) -1)/2)/(4*(1 + 4*x)^(3/2)). (End)
%F G.f.: (x/(1-x)^3)*hypergeometric2f0(2,3/2; - ; -4*x/(1-x)^2). - _G. C. Greubel_, Aug 16 2017
%t Join[{0}, Table[2*n*Pochhammer[1/2, n]*(-4)^(n - 1)*Hypergeometric1F1[1 - n, -2*n, -1], {n, 1, 50}]] (* _G. C. Greubel_, Aug 14 2017 *)
%o (PARI) for(n=0,50, print1(sum(k=0,n-1, (n+k+1)!/(2*(n-k-1)!*k!)), ", ")) \\ _G. C. Greubel_, Aug 14 2017
%Y Cf. A001514, A065920, A065921, A065922, A065707, A006199.
%K sign
%O 0,3
%A _N. J. A. Sloane_, Dec 08 2001