login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A364355
Decimal expansion of the unique value of x such that Gamma(-x + i*sqrt(1-x^2)) is a real number and -1 < x < 1.
5
5, 4, 1, 9, 7, 9, 8, 7, 1, 6, 9, 4, 8, 9, 0, 6, 0, 2, 4, 4, 3, 3, 2, 2, 7, 8, 7, 7, 9, 0, 9, 0, 4, 6, 8, 8, 0, 5, 5, 8, 2, 4, 2, 8, 0, 2, 9, 2, 7, 9, 3, 8, 4, 2, 7, 9, 5, 6, 1, 4, 5, 5, 1, 9, 4, 0, 0, 0, 0, 8, 1, 5, 8, 6, 3, 9, 1, 7, 2, 7, 4, 4, 0, 4, 6, 0, 2, 1, 5, 2, 1, 1, 5, 1, 5, 5, 5, 8, 8, 4, 8, 5, 5, 6, 6
OFFSET
0,1
COMMENTS
Gamma(-A364355 + i*sqrt(1-A364355^2)) = -0.6749332470449905963531... see A364356.
Also decimal expansion of the unique value of x in the range -1 < x < 1 for which the function Re(Gamma(-x + i*sqrt(1-x^2)))/abs(Gamma(-x + i*sqrt(1-x^2))) is minimized.
EXAMPLE
x = 0.54197987169489060244332278779...
MATHEMATICA
RealDigits[x /. FindRoot[Im[Gamma[-x + I Sqrt[1 - x^2]]], {x, 0.5}, WorkingPrecision -> 106]][[1]]
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Artur Jasinski, Jul 20 2023
STATUS
approved