OFFSET
1,1
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 1..500
FORMULA
Equals limit n->infinity A008485(n)^(1/n).
EXAMPLE
5.352701333486642687772415814165327879851483271286947097319690756...
MATHEMATICA
RealDigits[1/r /. FindRoot[{s == 1/QPochhammer[r*s], QPochhammer[r*s] + r*s*Derivative[0, 1][QPochhammer][r*s, r*s] == (Log[1 - r*s] + QPolyGamma[0, 1, r*s]) / (s*Log[r*s])}, {r, 1/5}, {s, 1}, WorkingPrecision -> 120], 10, 105][[1]] (* Vaclav Kotesovec, Sep 26 2023 *)
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Vaclav Kotesovec, Mar 25 2016
STATUS
approved