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.

A348261 Decimal expansion of the nontrivial number x for which x^Pi = Pi^x.

Original entry on oeis.org

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

Views

Author

Timothy L. Tiffin, Oct 08 2021

Keywords

Comments

The x-th root of x equals the Pi-th root of Pi: x^(1/x) = Pi^(1/Pi) = A073238 = 1.43961949584759... .
Like Pi, is x also transcendental?

Examples

			2.382179087993018774555593052520878...
x^Pi = Pi^x = 15.28621734783496640312486439999472... .
		

Crossrefs

Cf. A000796 (Pi), A049541 (1/Pi), A073238 (Pi^(1/Pi)), A073226 (e^e, see first comment), A231737.

Programs

  • Maple
    evalf((t-> -LambertW(-t)/t)(log(Pi)/Pi), 120);  # Alois P. Heinz, Oct 13 2021
  • Mathematica
    {a, b} = NSolve[x^Pi == Pi^x, x, WorkingPrecision -> 300]; a; RealDigits[N[x/.a, 300]][[1]]

Formula

Equals -Pi*LambertW(-log(Pi)/Pi)/log(Pi). - Alois P. Heinz, Oct 13 2021