A269893 Decimal expansion of the value of the maximum of the Airy function Ai.

5, 3, 5, 6, 5, 6, 6, 5, 6, 0, 1, 5, 6, 9, 9, 8, 6, 1, 1, 4, 4, 8, 6, 0, 2, 0, 0, 6, 9, 5, 3, 2, 2, 8, 5, 4, 8, 6, 9, 7, 3, 1, 7, 3, 7, 2, 3, 2, 9, 8, 3, 2, 5, 9, 3, 6, 4, 8, 4, 0, 4, 5, 1, 9, 5, 9, 7, 7, 6, 3, 5, 9, 2, 7, 1, 1, 3, 2, 2, 0, 3, 1, 7, 7, 8, 7, 6, 4, 6, 6, 6, 7, 6, 5, 1, 9, 2, 4, 2, 1, 2, 2, 7, 5, 7, 8, 4, 0, 0, 9, 9, 9, 0, 4, 2, 6, 6, 4, 4, 9

Offset: 0

Author

Jean-François Alcover, Mar 07 2016

Keywords

• nonn
• cons

Examples

			0.53565665601569986114486020069532285486973173723298325936484...
		

Links

• Eric Weisstein's MathWorld, Airy Functions

Crossrefs

Cf. A269892 (location of maximum).

Programs

Mathematica

FindRoot[AiryAiPrime[x] == 0, {x, -1}, WorkingPrecision -> 104][[1, 2]] // AiryAi // RealDigits // First

PARI

computeAtCurrentPrecision()=my(left=-2., right=-1., e=4.>>bitprecision(1.)); while(right-left>e, my(L=(2*left+right)/3, R=(left+2*right)/3); if(airy(L)[1] < airy(R)[1], left=L, right=R)); airy((left+right)/2)[1]; \\ Charles R Greathouse IV, Apr 26 2019