This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A317855 #17 Jun 09 2025 04:23:31
%S A317855 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 A317855 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 A317855 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 A317855 Decimal expansion of a constant related to the asymptotics of A122400.
%F A317855 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 A317855 3.161088653865428813830172202588132491726382774188556341627278...
%t A317855 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]]
%o A317855 (PARI) r=solve(r=.8,1,exp(1/r)/r + (1+exp(1/r))*lambertw(-exp(-1/r)/r))
%o A317855 (1+exp(1/r))*r^2 \\ _Charles R Greathouse IV_, Jun 15 2021
%Y A317855 Cf. A121886, A122399, A122400, A122418, A122419, A122420, A227619, A232192, A243802, A244585, A248798, A317340, A326010.
%Y A317855 Cf. A301584, A301585, A301586, A303056, A303057, A303654.
%K A317855 nonn,cons
%O A317855 1,1
%A A317855 _Vaclav Kotesovec_, Aug 09 2018