OFFSET
0,2
COMMENTS
Continued fraction of the constant in A224578.
LINKS
Paolo P. Lava, Table of n, a(n) for n = 0..999
MAPLE
Digits:=200; a:=evalf(gamma, 5000); evalf((a+sqrt(4+a^2))/2, 1000);
numtheory[cfrac](%, 200, 'quotients') ;
MATHEMATICA
ContinuedFraction[(EulerGamma+Sqrt[4+EulerGamma^2])/2, 100] (* G. C. Greubel, Aug 30 2018 *)
PROG
(PARI) default(realprecision, 100); contfrac((Euler + sqrt(4 + Euler^2))/2) \\ G. C. Greubel, Aug 30 2018
(Magma) SetDefaultRealField(RealField(100)); R:= RealField(); ContinuedFraction((EulerGamma(R) + Sqrt(4+EulerGamma(R)^2))/2); // G. C. Greubel, Aug 30 2018
CROSSREFS
KEYWORD
nonn,cofr
AUTHOR
Paolo P. Lava, Apr 11 2013
EXTENSIONS
Offset changed by Andrew Howroyd, Aug 08 2024
STATUS
approved