%I #27 Mar 02 2014 03:21:22
%S 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,
%T 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,
%U 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
%N Decimal expansion of b^b^b^..., where b equals Pi-3 (A000796).
%e =0.4307960410656323271949005495484538406836564717220423497579856062612692009443…
%t b = N[Pi - 3, 128]; f[n_] := Nest[b^# &, b, n]; RealDigits[f[1500], 10, 111][[1]] (* Or *)
%t RealDigits[ -LambertW[-Log[Pi - 3]]/Log[Pi - 3], 10, 105][[1]]
%Y Cf. A221566.
%K nonn,cons
%O 0,1
%A _Robert G. Wilson v_, Mar 01 2014
|