OFFSET
1,1
COMMENTS
The offset is 1 because the true offset would be 8.072304726...*10^153, which is too large to be represented properly in the OEIS.
This is the decimal expansion of 2^2^513. - Jianing Song, Dec 25 2018
LINKS
Robert P. Munafo, Hyper4 Iterated Exponential Function..
FORMULA
4^(4^(4^4)) = ((((( ... 245 ... (((((4^4)^4)^4)^4)^4) ... 245 ... ^4)^4)^4)^4)^4)^4.
EXAMPLE
2361022671459731320687702749778179430946127291477515446719256946212711853666475524945769350101941997...(8.072304726...*10^153) ... 7470426497333490366540651560537534642789067586985427238232605843019607448189676936860456095261392896.
The above line shows the first one hundred decimal digits and the last one hundred digits with the number of unrepresented digits in parenthesis.
The final one hundred digits where computed by: PowerMod[4, 4^4^4, 10^100].
MATHEMATICA
nbrdgt = 105; f[base_, exp_] := RealDigits[ 10^FractionalPart[ N[ exp*Log10[ base], nbrdgt + Floor[ Log10[ exp]] + 2]], 10, nbrdgt][[1]]; f[ 4, 4^4^4] (* or *)
p = 4; f[n_] := Quotient[n^p, 10^(Floor[p * Log10@ n] - (1004 + p^p))]; IntegerDigits@ Quotient[ Nest[ f@ # &, p, p^p], 10^(900 + p^p)] (* Program fixed by Jianing Song, Sep 18 2019 *)
CROSSREFS
KEYWORD
AUTHOR
Robert Munafo and Robert G. Wilson v, Apr 18 2014
EXTENSIONS
Keyword: fini added by Jianing Song, Sep 18 2019
STATUS
approved