A237818 Decimal expansion of b^b^b^..., where b equals Pi-3 (A000796).
4, 3, 0, 7, 9, 6, 0, 4, 1, 0, 6, 5, 6, 3, 2, 3, 2, 7, 1, 9, 4, 9, 0, 0, 5, 4, 9, 5, 4, 8, 4, 5, 3, 8, 4, 0, 6, 8, 3, 6, 5, 6, 4, 7, 1, 7, 2, 2, 0, 4, 2, 3, 4, 9, 7, 5, 7, 9, 8, 5, 6, 0, 6, 2, 6, 1, 2, 6, 9, 2, 0, 0, 9, 4, 4, 3, 3, 7, 7, 8, 3, 9, 5, 1, 0, 7, 4, 0, 5, 0, 9, 6, 0, 6, 8, 6, 2, 3, 3, 9, 3, 3, 3, 3, 0, 5, 5, 0, 9, 6, 6
Offset: 0
Examples
=0.4307960410656323271949005495484538406836564717220423497579856062612692009443…
Crossrefs
Cf. A221566.
Programs
-
Mathematica
b = N[Pi - 3, 128]; f[n_] := Nest[b^# &, b, n]; RealDigits[f[1500], 10, 111][[1]] (* Or *) RealDigits[ -LambertW[-Log[Pi - 3]]/Log[Pi - 3], 10, 105][[1]]