A221210 Decimal expansion of the abscissa of the half width of the Airy function.
1, 6, 1, 6, 3, 3, 9, 9, 4, 8, 3, 1, 0, 7, 0, 3, 1, 7, 8, 1, 1, 9, 1, 3, 9, 7, 5, 3, 6, 8, 3, 8, 9, 6, 3, 0, 9, 7, 4, 3, 1, 2, 1, 0, 9, 7, 2, 1, 5, 4, 6, 1, 0, 2, 3, 5, 8, 1, 1, 4, 3, 6, 6, 2, 1, 7, 7, 2, 2, 6, 4, 3, 7, 0, 7, 7
Offset: 1
Links
- Wikipedia, Airy disk
Crossrefs
Cf. A245461.
Programs
-
Mathematica
z /. FindRoot[ BesselJ[1, z]^2/z^2 == 1/8 , {z, 1}, WorkingPrecision -> 76] // RealDigits // First (* Jean-François Alcover, Feb 21 2013 *)
-
PARI
solve(x=1,2,8*besselj(1,x)^2-x^2) \\ Charles R Greathouse IV, Feb 19 2014
Comments