login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A002506
Denominators of coefficients of expansion of Bessel function J_2(x).
11
8, 96, 3072, 184320, 17694720, 2477260800, 475634073600, 119859786547200, 38355131695104000, 15188632151261184000, 7290543432605368320000, 4170190843450270679040000, 2802368246798581896314880000
OFFSET
0,1
REFERENCES
Bronstein-Semendjajew, Taschenbuch der Mathematik, 7th German ed. 1965, ch. 4.4.7
FORMULA
a(n) = 2^(2n+k) * n! * (n+k)! here for k=2, i.e., Bessel's J2(x).
a(n) - 4*n*(n+2)*a(n-1) = 0. - R. J. Mathar, Jun 20 2013
EXAMPLE
a(2) = 3072 = 64*2*24, J2(x) = x^2/8 - x^4/96 + x^6/3072 - x^8/184320 +- ...
MATHEMATICA
Denominator[Take[CoefficientList[Series[BesselJ[2, x], {x, 0, 30}], x], {3, -1, 2}]] (* Harvey P. Dale, Sep 21 2013 *)
CROSSREFS
J0: A002454, J1: A002474, J3: A014401.
Sequence in context: A356590 A338571 A317005 * A367352 A318012 A320398
KEYWORD
nonn
EXTENSIONS
Previous Mathematica program corrected by Harvey P. Dale, Sep 21 2013
STATUS
approved