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

Links

Table of n, a(n) for n=0..119.

Eric Weisstein's MathWorld, Airy Functions

Example

0.53565665601569986114486020069532285486973173723298325936484...

Mathematica

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

Prog

(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

Crossrefs

Cf. A269892 (location of maximum).

Sequence in context: A277621 A228046 A092516 * A336055 A131925 A128010

Adjacent sequences: A269890 A269891 A269892 * A269894 A269895 A269896

Keyword

nonn,cons

Author

Jean-François Alcover, Mar 07 2016

Status

approved