|
%I #14 Mar 03 2021 06:04:56
%S 6,0,4,4,0,7,6,0,0,4,4,4,4,4,7,8,4,2,4,1,2,2,0,3,8,4,0,4,4,3,4,0,6,8,
%T 5,7,0,9,8,6,3,3,3,1,1,2,9,9,8,5,5,0,8,9,9,4,3,6,0,7,7,7,6,0,9,8,6,5,
%U 2,2,8,8,7,4,3,3,0,3,4,4,7,8,9,8,1,2,3,7,6,9,1,2,8,6,9,8,5,9,0,6,9,9,4,5,6,5
%N Decimal expansion of (1/2)^(2/3)^...^(n/(n+1))^... .
%e 0.604407600444447842412203840443406857098633311299855...
%t digits = 120; difs = 1; sold = 0; n = 10; While[Abs[difs] > 10^(-digits - 5), s = N[n/(n + 1), 1000]; Do[s = (m/(m + 1))^s, {m, n - 1, 1, -1}]; difs = s - sold; sold = s; n++]; RealDigits[s, 10, 120][[1]] (* _Vaclav Kotesovec_, Feb 17 2021 *)
%Y Cf. A242759, A242760, A341324.
%K nonn,cons
%O 0,1
%A _Koksal Karakus_, Feb 08 2021
%E More digits from _Alois P. Heinz_, Feb 16 2021
|
