This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A364821 #18 Sep 02 2025 09:22:47
%S A364821 1,4,9,9,6,5,9,7,4,6,0,6,4,9,1,0,8,9,8,5,3,0,9,7,0,5,3,6,6,4,1,4,5,7,
%T A364821 3,6,6,8,7,4,1,8,4,1,0,2,3,9,9,6,9,7,4,2,9,1,1,7,8,3,1,4,7,5,5,9,8,7,
%U A364821 2,4,7,9,7,8,9,3,9,0,2,7,0,7,3,4,1,4,6,4,6,4,2,5,3,6,5,3,0,0,8,1,0,3,6,5,8,2
%N A364821 Decimal expansion of the unique value of x such that Gamma(x + i*sqrt(1-x^2)) is an imaginary number and -1 < x < 1.
%C A364821 Gamma(A364821 + i*sqrt(1-A364821^2)) = -i*0.5377003887835295919... see A366345.
%C A364821 Also decimal expansion of the unique value of x in the range -1 < x < 1 for which the function Im(Gamma(x + i*sqrt(1-x^2)))/abs(Gamma(x + i*sqrt(1-x^2))) is minimized.
%e A364821 0.149965974606491...
%t A364821 RealDigits[
%t A364821 x /. FindRoot[Re[Gamma[x + I Sqrt[1 - x^2]]], {x, 0.15},
%t A364821 WorkingPrecision -> 106]][[1]]
%Y A364821 Cf. A090986, A212877, A212878, A212880, A212879, A364355, A364356, A365317, A365318, A366345.
%K A364821 nonn,cons,changed
%O A364821 0,2
%A A364821 _Artur Jasinski_, Oct 07 2023
%E A364821 Last digit corrected by _Vaclav Kotesovec_, Sep 02 2025