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

A379892 Decimal expansion of the dihedral angle, in radians, between any two adjacent faces in a pentagonal hexecontahedron.

Original entry on oeis.org

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

Views

Author

Paolo Xausa, Jan 10 2025

Keywords

Comments

The pentagonal hexecontahedron is the dual polyhedron of the snub dodecahedron.

Examples

			2.6734732271767846682790703348957917197870317502693...
		

Crossrefs

Cf. A379888 (surface area), A379889 (volume), A379890 (inradius), A379891 (midradius).
Cf. A377997 and A377998 (dihedral angles of a snub dodecahedron).
Cf. A377849.

Programs

  • Mathematica
    First[RealDigits[ArcCos[#/(# - 2)] & [Root[#^3 + 2*#^2 - GoldenRatio^2 &, 1]], 10, 100]] (* or *)
    First[RealDigits[First[PolyhedronData["PentagonalHexecontahedron", "DihedralAngles"]], 10, 100]]
  • PARI
    acos(polrootsreal(209*x^6 - 94*x^5 - 137*x^4 + 100*x^3 - 9*x^2 - 6*x + 1)[1]) \\ Charles R Greathouse IV, Feb 10 2025

Formula

Equals arccos(A377849/(A377849 - 2)).
Equals arccos(c), where c is the smallest real root of 209*x^6 - 94*x^5 - 137*x^4 + 100*x^3 - 9*x^2 - 6*x + 1.

A377998 Decimal expansion of the dihedral angle, in radians, between triangular and pentagonal faces in a snub dodecahedron.

Original entry on oeis.org

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

Views

Author

Paolo Xausa, Nov 15 2024

Keywords

Examples

			2.669130633625756107707940935718208230518703745355...
		

Crossrefs

Programs

  • Mathematica
    First[RealDigits[Pi - ArcCos[Root[91125*#^12 - 668250*#^10 + 2006775*#^8 - 2735100*#^6 + 1768275*#^4 - 502410*#^2 + 43681&, 7]], 10, 100]] (* or *)
    First[RealDigits[Min[PolyhedronData["SnubDodecahedron", "DihedralAngles"]], 10, 100]]

Formula

Equals Pi - arccos(sqrt((12*phi - (4*phi + 8)*xi*(xi + 1) + 19)/15)), where phi = A001622 and xi = A377849.
Equals Pi - arccos(c), where c is the real root closest to 9/10 of 91125*x^12 - 668250*x^10 + 2006775*x^8 - 2735100*x^6 + 1768275*x^4 - 502410*x^2 + 43681.
Showing 1-2 of 2 results.