OFFSET
1,2
EXAMPLE
1.523230324208529830704308172517706557622863529177583804423211462834333571897662804971965924543364193...
MAPLE
m:=1: for n from 300 to 2 by -1 do: m:=(n^(1/n!))^m: od: evalf(m, 100);
MATHEMATICA
f[n_] := Block[{k = n, e = 1}, While[k > 1, e = N[(k^(1/k!))^e, 128]; k-- ]; e]; RealDigits[ f[18], 10, 105][[1]] (* Robert G. Wilson v, Sep 18 2004 *)
CROSSREFS
KEYWORD
AUTHOR
Mark Hudson (mrmarkhudson(AT)hotmail.com), Sep 16 2004
STATUS
approved