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-3 of 3 results.

A127583 Decimal expansion of smallest univoque Pisot Number.

Original entry on oeis.org

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

Views

Author

R. J. Mathar, Jun 13 2007

Keywords

Comments

The 2nd and 3rd smallest univoque Pisot numbers are 1.8866814375493413002581625771460337570154853175085... (A374750) and 1.9051661677540189095727878303640157935069696492981... (A374751).

Examples

			1.88000047865555118281806896989947911064560839482260578509980692092...
		

Crossrefs

Programs

  • Mathematica
    First@ RealDigits[ FindRoot[ x^14 - 2 x^13 + x^11 - x^10 - x^7 + x^6 - x^4 + x^3 - x + 1, {x, 1.88}, WorkingPrecision -> 111][[1, 2]]] (* Robert G. Wilson v, Jul 17 2007 *)
    RealDigits[Root[x^14-2x^13+x^11-x^10-x^7+x^6-x^4+x^3-x+1,2],10,120][[1]] (* Harvey P. Dale, Jan 18 2024 *)

Formula

The largest real root of x^14 - 2*x^13 + x^11 - x^10 - x^7 + x^6 - x^4 + x^3 - x + 1. - Robert G. Wilson v, Jul 17 2007 (corrected, Joerg Arndt, Jun 13 2015)

Extensions

More terms from Robert G. Wilson v, Jul 17 2007

A374750 Decimal expansion of the second smallest univoque Pisot number.

Original entry on oeis.org

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

Views

Author

Paolo Xausa, Jul 18 2024

Keywords

Examples

			1.8866814375493413002581625771460337570154853175...
		

Crossrefs

Cf. A127583 (smallest), A374751 (third smallest).

Programs

  • Mathematica
    First[RealDigits[Root[#^12 - 2*#^11 + #^10 - 2*#^9 + #^8 - #^3 + #^2 - # + 1 &, 2], 10, 100]]

Formula

Equals the real root > 1 of x^12 - 2*x^11 + x^10 - 2*x^9 + x^8 - x^3 + x^2 - x + 1.

A374752 Decimal expansion of phi_4, a limit point of the set of Pisot numbers in (1,2).

Original entry on oeis.org

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

Views

Author

Paolo Xausa, Jul 18 2024

Keywords

Examples

			1.933184981899520446791424030335631586375183784479...
		

Crossrefs

Programs

  • Mathematica
    First[RealDigits[Root[#^5 - 2*#^4 + # - 1 &, 1], 10, 100]]

Formula

Equals the real root of x^5 - 2*x^4 + x - 1.
Using the notation of Hare and Sidorov (2021, see Theorem 3.1), phi_1 = psi_1 (A001622) < phi_2 (A109134) < psi_2 (A058265) < phi_3 (A275828) < chi (A374751) < psi_3 (A086088) < phi_4 (this constant) < ... < psi_r < phi_(r+1) < ... < 2.
Showing 1-3 of 3 results.