%I #23 Dec 20 2015 08:52:03
%S 1,3,4,0,1,6,4,1,8,3,0,0,6,3,5,7,4,3,5,2,9,7,4,4,9,1,2,9,6,4,0,1,3,1,
%T 4,1,5,0,9,9,3,7,4,9,7,4,5,7,3,4,9,9,2,3,7,7,8,7,9,2,7,5,1,6,5,8,6,0,
%U 3,4,0,9,2,6,1,9,0,9,4,0,6,8,1,4,8,2,6,9,4,7,2,6,1,1,3,0,1,1,4,2,2,7,3,4,3
%N Decimal expansion of Pi^(Pi^Pi).
%D Christopher Creutzig & Walter Oevel, MuPAD Tutorial. Berlin: Springer-Verlag (2004): 339.
%H Harry J. Smith, <a href="/A073234/b073234.txt">Table of n, a(n) for n = 19..20000</a>
%e 1340164183006357435.29744912964...
%t RealDigits[Pi^Pi^Pi, 10, 100][[1]] (* _Alonso del Arte_, Jul 03 2012 *)
%o (PARI) Pi^Pi^Pi
%o (PARI) { default(realprecision, 20100); x=Pi^Pi^Pi/10^18; for (n=19, 20000, d=floor(x); x=(x-d)*10; write("b073234.txt", n, " ", d)); } \\ _Harry J. Smith_, May 01 2009, corrected May 19 2009, had -n
%o (MuPAD) DIGITS := 100:
%o float(PI^(PI^PI)) // from Creutzig & Oevel (2004)
%Y Cf. A000796 (Pi), A073233 (Pi^Pi), A202955 (Pi^Pi^Pi^Pi), A073236 (Pi^Pi^...^Pi, n times, rounded), A073235 ((Pi^Pi)^Pi), A073241 ((1/Pi)^(1/Pi)^(1/Pi)).
%K cons,nonn
%O 19,2
%A _Rick L. Shepherd_, Jul 25 2002