OFFSET
0,1
EXAMPLE
0.482420439587319764659364391266849418507665645926542970519109122...
MATHEMATICA
RealDigits[Sqrt[s/(Pi*Derivative[0, 2][QPochhammer][-1, r*s])]/r /. FindRoot[{2*s == QPochhammer[-1, r*s], r*Derivative[0, 1][QPochhammer][-1, r*s] == 2}, {r, 1/2}, {s, 1/2}, WorkingPrecision -> 120], 10, 105][[1]]
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Vaclav Kotesovec, Sep 26 2023
STATUS
approved