|
%I #11 Aug 16 2017 04:10:00
%S 384,7680,368640,30965760,3963617280,713451110400,171228266496000,
%T 52738306080768000,20251509535014912000,9477706462386978816000,
%U 5307515618936708136960000,3502960308498227370393600000
%N Denominators in the series for Bessel function J4(x).
%H G. C. Greubel, <a href="/A061403/b061403.txt">Table of n, a(n) for n = 0..220</a> (terms 0..50 from T. D. Noe)
%H <a href="/index/Be#Bessel">Index entries for sequences related to Bessel functions or polynomials</a>
%t Denominator[Take[CoefficientList[Series[BesselJ[4, x], {x, 0, 500}], x], {5, -1, 2}]] (* _G. C. Greubel_, Aug 15 2017 *)
%Y J1: A002474, J2: A002506, J3: A014401 for formula etc.
%K nonn,easy
%O 0,1
%A _Frank Ellermann_, Jun 11 2001
|
