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 A365318 #28 Mar 28 2025 02:10:29 %S A365318 5,1,7,2,7,9,0,9,9,4,7,4,8,4,0,1,5,1,5,9,3,3,2,3,5,0,1,7,1,5,4,1,9,0, %T A365318 7,2,2,1,8,4,7,0,9,0,3,3,1,4,1,7,5,9,0,8,7,9,8,3,2,3,2,2,6,4,4,9,9,0, %U A365318 0,3,6,0,0,3,2,7,5,1,7,7,5,8,6,8,0,1,6,4,2,2,6,3,6,1,1,6,1,1,1,0,9,6,6,0,9,2 %N A365318 Decimal expansion of negative imaginary part of Gamma(exp(i*Pi/3)). %H A365318 Juan Arias de Reyna and Jan van de Lune, 2013, <a href="https://arxiv.org/abs/1305.3844">On the exact location of the non-trivial zeros of Riemann's zeta function</a>, arXiv:1305.3844 [math.NT], 2013, formula (4). %H A365318 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/Riemann-SiegelFunctions.html">Riemann-Siegel Functions</a>. %H A365318 Wikipedia, <a href="https://en.wikipedia.org/wiki/Riemann%E2%80%93Siegel_theta_function">Riemann-Siegel theta function</a>. %F A365318 Equals sqrt(Pi*sech(Pi*sqrt(3)/2))*sin(2*theta(sqrt(3)/2)+(sqrt(3)/2)*log(2*Pi)+arctan(tanh(Pi*sqrt(3)/4))) where theta is Riemann-Siegel theta function. %e A365318 0.51727909947484... %e A365318 Gamma(cos(Pi/3) + I*sin(Pi/3)) = 0.37980489179139...-I*0.51727909947484... %t A365318 RealDigits[-Im[Gamma[Cos[Pi/3] + I Sin[Pi/3]]], 10, 106][[1]] %t A365318 (* or *) %t A365318 RealDigits[Sqrt[Pi/Cosh[Pi Sqrt[3]/2]] Sin[2 RiemannSiegelTheta[Sqrt[3]/2] + ArcTan[Tanh[Pi Sqrt[3]/4]] + Sqrt[3] Log[2 Pi]/2], 10, 106][[1]] %o A365318 (PARI) -imag(gamma(exp(I*Pi/3))) \\ _Michel Marcus_, Sep 01 2023 %Y A365318 Cf. A212877, A212878, A212879, A212880. %Y A365318 Cf. A365317 (real part), A365319 (abs). %K A365318 nonn,cons %O A365318 0,1 %A A365318 _Artur Jasinski_, Sep 01 2023