A327280 Decimal expansion of a constant related to A270913 and A327214.
2, 6, 0, 5, 4, 2, 2, 3, 3, 1, 4, 2, 4, 3, 8, 4, 6, 9, 4, 3, 3, 8, 6, 0, 8, 3, 2, 1, 6, 0, 4, 2, 2, 4, 8, 7, 6, 7, 6, 9, 0, 2, 0, 6, 0, 3, 9, 0, 8, 1, 6, 3, 0, 9, 2, 6, 3, 0, 2, 5, 9, 0, 1, 0, 2, 4, 1, 0, 3, 7, 5, 7, 2, 8, 9, 6, 2, 5, 4, 2, 2, 7, 8, 3, 5, 6, 5, 0, 8, 6, 0, 4, 0, 4, 4, 3, 1, 1, 4, 1, 0, 1, 0, 6, 2, 6
Offset: 0
Examples
0.26054223314243846943386083216042248767690206039081630926302590102410375728962...
Programs
-
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 *)