OFFSET
0,1
EXAMPLE
0.604407600444447842412203840443406857098633311299855...
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Koksal Karakus, Feb 08 2021
EXTENSIONS
More digits from Alois P. Heinz, Feb 16 2021
STATUS
approved