|
%I #21 May 07 2023 01:26:29
%S 0,0,7,6,5,4,8,7,5,7,0,2,1,4,1,3,7,2,3,6,9,8,4,2,3,5,1,2,0,8,4,0,0,3,
%T 7,5,5,7,9,3,0,0,6,9,3,8,9,0,9,6,5,8,3,8,9,5,3,2,1,6,0,9,8,5,4,3,9,9,
%U 0,3,4,5,9,5,6,9,2,1,4,1,2,1,5,5,7,5,1,9,3,4,1,6,6,5,8,2,8,2,3,1,8,6,9,6
%N Decimal expansion of (Pi + e)/2 - sqrt(Pi*e).
%e (Pi + e)/2 - sqrt(Pi*e) = 2.9299372410244192369... - 2.92228236532227786454... = 0.0076548757021413723...
%t Join[{0, 0}, RealDigits[(Pi + E)/2 - Sqrt[Pi*E], 10, 120][[1]]] (* _Amiram Eldar_, May 07 2023 *)
%o (Maxima) fpprec : 100$ ev(bfloat((%pi+%e)/2-(%pi*%e)^(1/2))); /*_Martin Ettl_, Oct 16 2012 */
%Y Cf. A019645, A074916.
%K nonn,cons
%O 0,3
%A _Zak Seidov_, Oct 02 2002
|
