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

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, 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, 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

Offset: 1

Author

Jean-François Alcover, Mar 07 2016

Keywords

• nonn
• cons

Examples

			-1.01879297164747108901732478339974382421820544125443456387...
		

References

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

Links

• Eric Weisstein's MathWorld, Airy Functions

Crossrefs

Cf. A269893 (value of maximum).

Programs

Mathematica

FindRoot[AiryAiPrime[x] == 0, {x, -1}, WorkingPrecision -> 103][[1, 2]] // 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)); -(left+right)/2; \\ Charles R Greathouse IV, Apr 26 2019