The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A317855 Decimal expansion of a constant related to the asymptotics of A122400. 19

%I

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

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

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

%N Decimal expansion of a constant related to the asymptotics of A122400.

%F Equals (1+exp(1/r))*r^2, where r = 0.873702433239668330496568304720719298213992... is the root of the equation exp(1/r)/r + (1+exp(1/r))*LambertW(-exp(-1/r)/r) = 0.

%e 3.161088653865428813830172202588132491726382774188556341627278...

%t r = r /. FindRoot[E^(1/r)/r + (1 + E^(1/r)) * ProductLog[-E^(-1/r)/r] == 0, {r, 3/4}, WorkingPrecision -> 120]; RealDigits[(1 + Exp[1/r])*r^2][[1]]

%Y Cf. A121886, A122399, A122400, A122418, A122419, A122420, A227619, A232192, A243802, A244585, A248798, A317340, A326010.

%Y Cf. A301584, A301585, A301586, A303056, A303057.

%K nonn,cons

%O 1,1

%A _Vaclav Kotesovec_, Aug 09 2018

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified April 10 11:15 EDT 2021. Contains 342845 sequences. (Running on oeis4.)