OFFSET
0,1
EXAMPLE
0.26054223314243846943386083216042248767690206039081630926302590102410375728962...
MATHEMATICA
RealDigits[1/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, 106][[1]] (* Vaclav Kotesovec, Oct 02 2023 *)
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Vaclav Kotesovec, Aug 28 2019
STATUS
approved