%I #14 Oct 21 2023 11:33:35
%S 4,8,4,9,7,3,3,4,8,0,8,1,1,4,5,3,1,3,7,8,5,1,2,8,8,6,3,5,6,0,7,4,1,2,
%T 3,0,0,1,9,0,3,6,2,1,9,5,0,4,5,6,7,9,4,4,7,8,2,5,8,3,3,8,1,0,1,8,6,1,
%U 1,8,2,2,9,6,0,6,9,5,0,0,3,9,3,1,2,4,5,0,0,2,1,3,3,0,0,1,4,0,6,1,0,5,7,6,2
%N Decimal expansion of ((Pi/e^2) * A161771^2).
%F Equals 70^4 * e^(4*Pi*sqrt(163)) * Pi/e^2.
%e 48497334808114531378512886356074123001903621950456794478258338101861182296069.50039...
%t RealDigits[(Pi/E^2)(Exp[Pi Sqrt[163]]^2 70^2)^2,10,120][[1]] (* _Harvey P. Dale_, Jul 30 2022 *)
%Y Cf. A165268, A161771.
%K nonn,cons
%O 77,1
%A _Mark A. Thomas_, Sep 12 2009
%E Previous Mathematica program replaced by _Harvey P. Dale_, Jul 30 2022
|