A073236 Pi^Pi^...^Pi (n times) rounded to nearest integer.
1, 3, 36, 1340164183006357435
Offset: 0
Keywords
Crossrefs
Programs
-
Maple
p:= n-> `if`(n=0, 1, Pi^p(n-1)): a:= n-> round(p(n)): seq(a(n), n=0..3); # Alois P. Heinz, Jul 20 2024
-
Mathematica
Round[NestList[Power[Pi, #] &, 1, 3]] (* Alonso del Arte, Jul 02 2014 *)
-
PARI
p=0; for(n=0,3, p=Pi^p; print1(round(p),",")) \\ n = 4 produces too large an exponent for PARI.
Formula
a(n) = round(Pi^Pi^...^Pi), where Pi occurs n times, a(0) = 1 (=Pi^0).
Comments