OFFSET
0,1
EXAMPLE
0.4449047137975709943818158062572891757596036582203842557173...
MATHEMATICA
digits = 120; difs = 1; sold = 0; n = 10; While[Abs[difs] > 10^(-digits - 5), s = N[n^2/(n + 1)^2, 1000]; Do[s = (m^2/(m + 1)^2)^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