cp's OEIS Frontend

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.

Showing 1-4 of 4 results.

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.

Original entry on oeis.org

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

Views

Author

Artur Jasinski, Jul 20 2023

Keywords

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.

Examples

			x = 0.54197987169489060244332278779...
		

Crossrefs

Programs

  • Mathematica
    RealDigits[x /. FindRoot[Im[Gamma[-x + I Sqrt[1 - x^2]]], {x, 0.5}, WorkingPrecision -> 106]][[1]]

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.

Original entry on oeis.org

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, 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, 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
Offset: 0

Views

Author

Artur Jasinski, Oct 07 2023

Keywords

Comments

Gamma(A364821 + i*sqrt(1-A364821^2)) = -i*0.5377003887835295919... see A366345.
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.

Examples

			0.149965974606491...
		

Crossrefs

Programs

  • Mathematica
    RealDigits[
      x /. FindRoot[Re[Gamma[x + I Sqrt[1 - x^2]]], {x, 0.15},
        WorkingPrecision -> 106]][[1]]

Extensions

Last digit corrected by Vaclav Kotesovec, Sep 02 2025

A366345 Decimal expansion of y such that Gamma(A364821 + i*sqrt(1-A364821^2)) = -y*i.

Original entry on oeis.org

5, 3, 7, 7, 0, 0, 3, 8, 8, 7, 8, 3, 5, 2, 9, 5, 9, 1, 9, 0, 4, 6, 0, 0, 7, 9, 5, 7, 7, 3, 9, 5, 0, 2, 5, 5, 4, 9, 4, 4, 2, 7, 7, 5, 6, 1, 7, 4, 1, 5, 9, 3, 2, 4, 2, 7, 3, 9, 7, 1, 3, 6, 0, 9, 0, 6, 1, 3, 8, 3, 9, 6, 2, 6, 6, 4, 4, 9, 0, 7, 5, 7, 0, 0, 3, 2, 2, 4, 8, 3, 1, 8, 7, 3, 4, 8, 5, 6, 0, 0, 4, 6, 7, 5, 0, 3
Offset: 0

Views

Author

Artur Jasinski, Oct 07 2023

Keywords

Comments

x = A364821 = 0.149965974606491089853... is the only real number x such that Gamma(x + i*sqrt(1-x^2)) is an imaginary number and -1 < x < 1.

Examples

			Gamma(A364821 + i*sqrt(1-A364821^2)) = -i*0.5377003887835295919046...
		

Crossrefs

A366545 Decimal expansion of the value x for which the function Re(Gamma(-x + i*sqrt(1-x^2))) is minimized for -1 < x < 1.

Original entry on oeis.org

9, 5, 6, 5, 1, 3, 0, 9, 0, 3, 4, 6, 6, 5, 4, 5, 6, 5, 6, 0, 3, 6, 3, 6, 6, 0, 1, 5, 9, 2, 5, 6, 5, 4, 4, 4, 9, 3, 0, 6, 8, 3, 2, 2, 6, 1, 4, 9, 5, 4, 1, 1, 1, 2, 5, 7, 6, 3, 2, 8, 7, 6, 6, 0, 5, 4, 8, 0, 3, 1, 9, 7, 3, 5, 7, 6, 8, 6, 8, 6, 5, 1, 2, 3, 6, 0, 9, 8, 4, 8, 5, 7, 1, 4, 0, 0, 7, 5, 2, 8, 1, 9, 9, 9, 1, 7
Offset: 0

Views

Author

Artur Jasinski, Oct 12 2023

Keywords

Comments

For Re(Gamma(-A366545 + i*sqrt(1-A366545^2))) = -0.930840199... see A366545.

Examples

			0.9565130903466545656...
		

Crossrefs

Programs

  • Mathematica
    xmin = Re[x /. FindRoot[1/(2 Sqrt[1 - x^2]) I (Gamma[1 + x - I Sqrt[1 - x^2]] PolyGamma[0, x - I Sqrt[1 - x^2]] - Gamma[1 + x + I Sqrt[1 - x^2]] PolyGamma[0,
             x + I Sqrt[1 - x^2]]), {x, -0.98}, WorkingPrecision -> 110]];
     RealDigits[xmin, 10, 106][[1]]
Showing 1-4 of 4 results.