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,1

Links

Table of n, a(n) for n=0..110.

Example

=0.4307960410656323271949005495484538406836564717220423497579856062612692009443…

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]]

Crossrefs

Cf. A221566.

Sequence in context: A152675 A200359 A244346 * A198240 A332122 A010650

Adjacent sequences: A237815 A237816 A237817 * A237819 A237820 A237821

Keyword

nonn,cons

Author

Robert G. Wilson v, Mar 01 2014

Status

approved