%I #9 Feb 16 2025 08:33:30

%S 1,0,1,8,7,9,2,9,7,1,6,4,7,4,7,1,0,8,9,0,1,7,3,2,4,7,8,3,3,9,9,7,4,3,

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

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

%N Decimal expansion of the [negated] location of the maximum of the Airy function Ai.

%D L. D. Landau & E. M. Lifshitz, The Classical Theory of Fields, Pergamon Press 1971, page 150.

%H Eric Weisstein's MathWorld, <a href="https://mathworld.wolfram.com/AiryFunctions.html">Airy Functions</a>

%e -1.01879297164747108901732478339974382421820544125443456387...

%t FindRoot[AiryAiPrime[x] == 0, {x, -1}, WorkingPrecision -> 103][[1, 2]] // RealDigits // First

%o (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)); -(left+right)/2; \\ _Charles R Greathouse IV_, Apr 26 2019

%Y Cf. A269893 (value of maximum).

%K nonn,cons,changed

%O 1,4

%A _Jean-François Alcover_, Mar 07 2016