%I #20 Sep 08 2022 08:46:01
%S 1,0,0,0,5,2,6,4,9,0,0,3,2,2,8,0,8,6,3,7,0,8,8,6,8,0,0,2,0,0,9,2,4,2,
%T 8,1,7,4,8,2,0,8,1,6,4,1,6,1,5,0,6,9,8,4,4,8,1,3,7,4,4,1,9,9,4,6,8,6,
%U 0,7,5,0,2,7,1,0,3,2,6,0,7,4,9,9,3,5,9,9,7,1,0,1,0,8,6,9,7,3,9,0,0,6,9,3,1
%N Decimal expansion of Pi - e + gamma, where gamma is Euler's constant (or the Euler-Mascheroni constant).
%C An approximation to 1.
%H G. C. Greubel, <a href="/A211015/b211015.txt">Table of n, a(n) for n = 1..10000</a>
%F Equals A000796 - A001113 + A001620 = A073244 + A001620.
%e 1.00052649003228086370886800200...
%p evalf(Pi-exp(1)+gamma, 120); # _Alois P. Heinz_, Jul 10 2022
%t RealDigits[Pi - E + EulerGamma, 10, 105][[1]] (* _T. D. Noe_, Sep 20 2012 *)
%o (PARI) default(realprecision, 100); Pi - exp(1) + Euler \\ _G. C. Greubel_, Sep 06 2018
%o (Magma) SetDefaultRealField(RealField(100)); R:= RealField(); Pi(R) - Exp(1) + EulerGamma(R); // _G. C. Greubel_, Sep 06 2018
%Y Cf. A000796, A001113, A001620, A073244, A203816.
%K nonn,cons
%O 1,5
%A _Omar E. Pol_, Sep 16 2012
%E Extended by _T. D. Noe_, Sep 20 2012