%I #18 Aug 17 2017 03:08:29
%S 0,1,15,246,4810,111315,2994621,92069740,3188772756,122934101445,
%T 5223324100555,242563221769506,12224586738476190,664572113979550231,
%U 38767776344788218105,2415639337342677314520,160131212043826343202856
%N Bessel polynomial {y_n}'(2).
%D J. Riordan, Combinatorial Identities, Wiley, 1968, p. 77.
%H G. C. Greubel, <a href="/A065920/b065920.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 Recurrence: (n-1)^2*a(n) = (2*n - 1)*(2*n^2 - 2*n + 1)*a(n-1) + n^2*a(n-2). - _Vaclav Kotesovec_, Jul 22 2015
%F a(n) ~ 2^(2*n-1/2) * n^(n+1) / exp(n-1/2). - _Vaclav Kotesovec_, Jul 22 2015
%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) + 8*x - 1)*exp((1 - sqrt(1 - 4*x))/2)/(4*(1 - 4*x)^(3/2)). (End)
%F G.f.: (t/(1-t)^3)*hypergeometric2f0(2,3/2; - ; 4*t/(1-t)^2). - _G. C. Greubel_, Aug 16 2017
%t Table[Sum[(n+k+1)!/(2*(n-k-1)!*k!), {k,0,n-1}], {n,0,20}] (* _Vaclav Kotesovec_, Jul 22 2015 *)
%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, A065921, A065922.
%K nonn
%O 0,3
%A _N. J. A. Sloane_, Dec 08 2001