A241295 Decimal expansion of 6^(6^(6^6)) = 6^^4.

4, 4, 4, 6, 2, 3, 5, 1, 9, 0, 2, 3, 6, 9, 3, 4, 6, 9, 7, 5, 2, 5, 6, 5, 8, 2, 2, 2, 8, 2, 9, 2, 0, 0, 1, 5, 4, 0, 5, 7, 9, 4, 1, 4, 5, 4, 2, 4, 6, 3, 9, 6, 6, 3, 4, 2, 7, 8, 2, 6, 1, 5, 6, 9, 4, 4, 6, 3, 1, 4, 6, 6, 9, 7, 2, 3, 2, 2, 9, 7, 7, 5, 8, 4, 9, 2, 9, 4, 3, 0, 5, 0, 4, 8, 2, 1, 9, 1, 9, 3, 2, 6, 3, 7, 4

Offset

1,1

Comments

The offset is 1 because the true offset would be 2.069197376... * 10^36305, which is too large to be represented properly in the OEIS.

Links

Table of n, a(n) for n=1..105.

Robert P. Munafo, Hyper4 Iterated Exponential Function..

Formula

6^(6^(6^6)) = ((((( ... 46645 ... (((((6^6)^6)^6)^6)^6) ... 46645 ... ^6)^6)^6)^6)^6)^6.

Example

4446235190236934697525658222829200154057941454246396634278261569446314669723229775849294305048219193...(2.069197376... * 10^36305)...1753131067593004473155552781300975310520790674421755277191077815819279193580406457883859420138438656.
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[6, 6^6^6, 10^100].

Mathematica

nbrdgt = 105; f[base_, exp_] := RealDigits[ 10^FractionalPart[ N[ exp*Log10[ base], nbrdgt + Floor[ Log10[ exp]] + 2]], 10, nbrdgt][[1]]; f[ 6, 6^6^6] (* Program fixed by Jianing Song, Sep 18 2019 *)

Crossrefs

Cf. A085667, A202955, A054382, A014221, A241291, A241292, A241293, A241294, A241296, A241297, A241298, A241299, A243913.

Sequence in context: A006075 A342576 A370389 * A074904 A010304 A164821

Adjacent sequences: A241292 A241293 A241294 * A241296 A241297 A241298

Keyword

nonn,cons,fini

Author

Robert Munafo and Robert G. Wilson v, Apr 18 2014

Extensions

Keyword: fini added by Jianing Song, Sep 18 2019

Status

approved