A318204 Decimal expansion of a constant related to the asymptotics of A255526.
3, 5, 0, 9, 7, 5, 4, 3, 2, 7, 9, 4, 9, 7, 0, 3, 3, 4, 0, 4, 3, 7, 2, 7, 3, 5, 2, 3, 3, 7, 5, 1, 9, 3, 6, 9, 8, 4, 5, 4, 7, 8, 9, 7, 3, 3, 9, 3, 1, 7, 3, 9, 9, 1, 1, 7, 8, 9, 8, 9, 9, 3, 7, 8, 5, 8, 5, 4, 8, 2, 1, 7, 0, 1, 5, 1, 2, 0, 0, 7, 7, 4, 4, 5, 6, 4, 8, 9, 4, 0, 8, 1, 3, 0, 7, 5, 1, 2, 1, 3, 2, 6, 4, 0, 2
Offset: 1
Examples
3.509754327949703340437273523375193698454789733931739911...
Programs
-
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 *)