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.

A381254 Decimal expansion of the obliquity (in radians) of a planet at which the annual instellations received by the poles and the equator are identical.

Original entry on oeis.org

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

Views

Author

Eliora Ben-Gurion, Apr 17 2025

Keywords

Comments

For an obliquity x, the normalized annual instellation coefficient at the equator is e(x) = (EllipticE(sin(x)^2) + sqrt(cos(x)^2) * EllipticE(-tan(x)^2)) / Pi, and at the poles is p(x) = sin(x), and the present constant is x where e(x) = p(x).
These coefficients are obtained by integrating over the sine of solar altitude over the course of one planetary year.
If the obliquity of a planet is greater than this value (for example, Uranus), then the poles would receive more instellation per year than the equator, which would result in a climate that inverts typical perceptions of those latitudes and the polar regions would be hotter than equatorial ones, in some cases resulting in an "ice belt" planet. However, these seasonal means would be accompanied by intense seasonal variations, as opposed to purely "tropical" polar regions.

Examples

			0.9406667702399996632...
		

Crossrefs

Cf. A383141.

Programs

  • Mathematica
    FindRoot[(EllipticE[Sin[x]^2] + Sqrt[Cos[x]^2] * EllipticE[-Tan[x]^2]) / Pi == Sin[x], {x, 0.94}, WorkingPrecision -> 100]
  • PARI
    \\ definition of ellM as in Mathematica's EllipticE[m]
    ellM(k) = intnum(t=0, Pi/2, sqrt(1-k*sin(t)^2));
    solve (x=0.9, 0.95, (ellM(sin(x)^2) + sqrt(cos(x)^2)*ellM(-tan(x)^2))/Pi - sin(x)) \\ Hugo Pfoertner, Apr 26 2025

Formula

Equals A383141*Pi/180.