OFFSET
1,1
EXAMPLE
3.509754327949703340437273523375193698454789733931739911...
MATHEMATICA
RealDigits[1/r /. FindRoot[{2*r == s*QPochhammer[-1, -s], 2*r == s^2*Derivative[0, 1][QPochhammer][-1, -s]}, {r, 1/3}, {s, 1/2}, WorkingPrecision -> 120], 10, 105][[1]] (* Vaclav Kotesovec, Oct 03 2023 *)
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Vaclav Kotesovec, Aug 21 2018
STATUS
approved