|
%I #11 Aug 16 2017 04:10:28
%S 185794560,7431782400,653996851200,94175546572800,19588513687142400,
%T 5484783832399872000,1974522179663953920000,884585936489451356160000,
%U 481214749450261537751040000,311827157643769476462673920000
%N Denominators in the series for Bessel function J9(x).
%H G. C. Greubel, <a href="/A061440/b061440.txt">Table of n, a(n) for n = 0..219</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[9, x], {x, 0, 50}], x], {10, -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
|
