|
%I #25 Jul 02 2023 16:53:01
%S 7,7,4,0,4,4,3,7,6,2,4,2,1,4,8,8,5,5,5,9,6,1,7,4,2,6,7,9,2,3,1,2,5,9,
%T 3,5,5,2,5,5,2,5,6,9,4,6,6,6,0,3,9,7,7,9,2,4,1,8,9,5,0,3,5,5,5,3,6,0,
%U 8,9,2,3,9,5,0,1,3,0,5,7,9,2,4,7,8,6,8,7,0,0,9,5,0,0,5,8,7,4,9,5,8,1,3,5,8
%N Decimal expansion of b^b^b^..., where b equals e-2 (A001113).
%C Inspired by A225053.
%e 0.7740443762421488555961742679231259355255256946660397792418950355...
%t b = N[E - 2, 128]; f[n_] := Nest[b^# &, b, n]; RealDigits[ f[186], 10, 111][[1]]
%t RealDigits[ -LambertW[ -Log[E - 2]]/Log[E - 2], 10, 105][[1]]
%Y Cf. A225053.
%K nonn,cons
%O 0,1
%A _Vladimir Reshetnikov_ and _Robert G. Wilson v_, May 05 2013
|
