This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A221210 #25 Feb 21 2025 05:25:59 %S A221210 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, %T A221210 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, %U A221210 2,6,4,3,7,0,7,7 %N A221210 Decimal expansion of the abscissa of the half width of the Airy function. %C A221210 In optics, the Airy function is the amplitude pattern of light shining through a circular hole, which gives (in the Fraunhofer limit of diffraction theory) an amplitude proportional to J_1(z)/z, where J_1 is the Bessel function of order 1, and where z is the radial coordinate. The Airy disk is the intensity, the square of the amplitude, proportional to I=(J_1(z)/z)^2, with the first zero at A115369. The peak is at I(0)=1/4, so the half width is defined by I(zhalf)=1/8, which gives zhalf = 1.6163399483.., defining the sequence of digits. %H A221210 Wikipedia, <a href="http://en.wikipedia.org/wiki/Airy_disk">Airy disk</a> %t A221210 z /. FindRoot[ BesselJ[1, z]^2/z^2 == 1/8 , {z, 1}, WorkingPrecision -> 76] // RealDigits // First (* _Jean-François Alcover_, Feb 21 2013 *) %o A221210 (PARI) solve(x=1,2,8*besselj(1,x)^2-x^2) \\ _Charles R Greathouse IV_, Feb 19 2014 %Y A221210 Cf. A245461. %K A221210 nonn,cons %O A221210 1,2 %A A221210 _R. J. Mathar_, Feb 21 2013