%I #8 Jan 20 2015 02:21:57
%S 5,1,9,7,2,0,4,6,5,5,5,1,7,0,5,1,0,1,6,0,7,4,5,2,6,0,0,6,7,3,3,2,8,5,
%T 3,5,9,6,8,3,9,2,2,0,1,4,0,7,3,8,2,1,4,7,7,4,0,3,2,0,3,8,9,2,4,6,9,7,
%U 9,1,6,4,4,5,3,4,5,4,9,9,5,0,4,3,1,2,9,2,2,0,8,3,9,1,3,0,3,1,0,0
%N Decimal expansion of (e^Pi)*(Pi^e).
%e (e^Pi)*(Pi^e) is 519.7204655517051016...
%t a := N[E^Pi*Pi^E, 500]; Table[Floor[10^(n - 3)*a] - 10*Floor[10^(n - 4)*a], {n, 1, 100}] (* valid for the first 500 digits *)
%t RealDigits[N[Pi^E*E^Pi,200]] (* _Vladimir Joseph Stephan Orlovsky_, May 27 2010 *)
%Y Cf. A019314 (sum of e^Pi and Pi^e).
%K cons,nonn
%O 3,1
%A _Stefan Steinerberger_, Feb 21 2006
|