Rogers–Ramanujan continued fraction
DefinitionThe real Rogers–Ramanujan continued fraction#✓fully proved
For a real number \(x\),
where \(x^{1/5}\) is the real power function (the nonnegative fifth root for \(x \ge 0\), and \(|x|^{1/5} \cos(\pi/5)\) for \(x < 0\)), a factor whose denominator is \(0\) is read as \(0\), and the infinite product is taken to be \(1\) when it does not converge unconditionally. For \(0 \le x < 1\) this is the product formula \(R(x) = x^{1/5} (x; x^5)_\infty (x^4; x^5)_\infty / ((x^2; x^5)_\infty (x^3; x^5)_\infty)\) of the Rogers–Ramanujan continued fraction, where \((c; q)_\infty = \prod_{m \ge 0} (1 - c q^m)\).
public noncomputable def rogersRamanujanContFracReal (x : ℝ) : ℝ :=
x ^ (1 / 5 : ℝ) * ∏' n : ℕ, ((1 - x ^ (5 * n + 1)) * (1 - x ^ (5 * n + 4)) /
((1 - x ^ (5 * n + 2)) * (1 - x ^ (5 * n + 3))))
Sources
- S. E. Gladun and M. P. Chaudhary, Connecting Ramanujan's Theta Functions, the Rogers-Ramanujan Continued Fraction, and the Golden Ratio, INTEGERS 25 (2025), Article A43, Section 1 (the Rogers-Ramanujan continued fraction formula).
TheoremThe Rogers–Ramanujan continued fraction vanishes at zero#✓fully proved
The real Rogers–Ramanujan continued fraction \(R\) satisfies \(R(0) = 0\).
public theorem rogersRamanujanContFracReal_zero : rogersRamanujanContFracReal 0 = 0
public noncomputable def rogersRamanujanContFracReal (x : ℝ) : ℝ :=
x ^ (1 / 5 : ℝ) * ∏' n : ℕ, ((1 - x ^ (5 * n + 1)) * (1 - x ^ (5 * n + 4)) /
((1 - x ^ (5 * n + 2)) * (1 - x ^ (5 * n + 3))))
WantedExt/NumberTheory/RogersRamanujanGoldenRatioWanted.lean:45
Sources
- S. E. Gladun and M. P. Chaudhary, Connecting Ramanujan's Theta Functions, the Rogers-Ramanujan Continued Fraction, and the Golden Ratio, INTEGERS 25 (2025), Article A43, Section 1 (the Rogers-Ramanujan continued fraction formula).
Uses 1
TheoremGolden-ratio relation for the Rogers–Ramanujan continued fraction#●ready to prove
Let \(t > 0\), and put \(q = e^{-\pi t}\) and \(q' = e^{-\pi/t}\). Let \(\psi(x) = \sum_{n \ge 0} x^{n(n+1)/2}\) and \(E(x) = (x; x)_\infty = \prod_{n \ge 1} (1 - x^n)\), and set \(\tau(q) = \psi(q) - 5q^3 \psi(q^{25})\), \(\rho(q) = \psi(q)^2 - 5q\,\psi(q^5)^2\) and
Let \(\Phi = (\sqrt{5} + 1)/2\), let \(R\) be the real Rogers–Ramanujan continued fraction, and put \(U = \bigl(R(q)\,R(q'^{4/5})\bigr)^{5/2}\) and \(V = \bigl(R(q)/R(q'^{4/5})\bigr)^{5/2}\). Then
This is Theorem 1 of the source on the imaginary axis \(z = it\), where \(q = e^{\pi i z}\) and \(q' = e^{\pi i z'}\) with \(z z' = -1\).
MetaMathlibExt.rogersRamanujan_golden_ratio_theta_relation · 16 lines
public theorem_wanted rogersRamanujan_golden_ratio_theta_relation (t : ℝ) (ht : 0 < t) :
let q : ℝ := Real.exp (-Real.pi * t)
let q' : ℝ := Real.exp (-Real.pi / t)
let ψ : ℝ → ℝ := fun x => ∑' n : ℕ, x ^ (n * (n + 1) / 2)
let E : ℝ → ℝ := fun x => ∏' n : ℕ, (1 - x ^ (n + 1))
let τ : ℝ := ψ q - 5 * q ^ 3 * ψ (q ^ 25)
let ρ : ℝ := ψ q ^ 2 - 5 * q * ψ (q ^ 5) ^ 2
let g₀ : ℝ := (16 * ψ q ^ 5 - τ * (τ ^ 4 + 5 * τ ^ 2 * ρ + 5 * ρ ^ 2)) / (5 * ψ (q ^ 5))
let Φ : ℝ := (Real.sqrt 5 + 1) / 2
let R₁ : ℝ := rogersRamanujanContFracReal q
let R₂ : ℝ := rogersRamanujanContFracReal (q' ^ (4 / 5 : ℝ))
let U : ℝ := (R₁ * R₂) ^ (5 / 2 : ℝ)
let V : ℝ := (R₁ / R₂) ^ (5 / 2 : ℝ)
(Real.sqrt Φ - 1 / Real.sqrt Φ) * (U + 1 / U) +
(Real.sqrt Φ + 1 / Real.sqrt Φ) * (V - 1 / V) =
1 / Real.sqrt q * (g₀ / (E q * E (q ^ 5)) ^ 2)
public noncomputable def rogersRamanujanContFracReal (x : ℝ) : ℝ :=
x ^ (1 / 5 : ℝ) * ∏' n : ℕ, ((1 - x ^ (5 * n + 1)) * (1 - x ^ (5 * n + 4)) /
((1 - x ^ (5 * n + 2)) * (1 - x ^ (5 * n + 3))))
WantedExt/NumberTheory/RogersRamanujanGoldenRatioWanted.lean:45
Sources
- S. E. Gladun and M. P. Chaudhary, Connecting Ramanujan's Theta Functions, the Rogers-Ramanujan Continued Fraction, and the Golden Ratio, INTEGERS 25 (2025), Article A43, Theorem 1, Equation (3).
Uses 1
TheoremEta-quotient form of the Gladun–Chaudhary theta coefficient#●ready to prove
In the ring of integer power series in \(q\), let \(\psi(q) = \sum_{m \ge 0} q^{m(m+1)/2}\) be the triangular theta series and \(E_k = (q^k; q^k)_\infty\) the Euler products, and set \(\tau(q) = \psi(q) - 5q^3\psi(q^{25})\) and \(\rho(q) = \psi(q)^2 - 5q\,\psi(q^5)^2\). Then
This is Theorem 2 of the source, which writes \(g(0) = \bigl(16\psi(q)^5 - \tau(q)(\tau(q)^4 + 5\tau(q)^2\rho(q) + 5\rho(q)^2)\bigr)/(5\psi(q^5))\) as \(E_5^5/E_{25} + 20q\,E_1^4E_{25}/E_5 + 110q^2E_1^3E_{25}^2/E_5 + 350q^3E_1^2E_{25}^3/E_5 + 600q^4E_1E_{25}^4/E_5 + 625q^5E_{25}^5/E_5\), multiplied through by \(5\psi(q^5)E_5E_{25}\).
public theorem_wanted rogersRamanujan_theta_coeff_eta_quotient :
let ψ : ℤ⟦X⟧ := triangularThetaSeries
let τ : ℤ⟦X⟧ := ψ - 5 * X ^ 3 * expand 25 (by norm_num) ψ
let ρ : ℤ⟦X⟧ := ψ ^ 2 - 5 * X * expand 5 (by norm_num) ψ ^ 2
(16 * ψ ^ 5 - τ * (τ ^ 4 + 5 * τ ^ 2 * ρ + 5 * ρ ^ 2)) * qEulerProduct 5 * qEulerProduct 25 =
5 * expand 5 (by norm_num) ψ *
(qEulerProduct 5 ^ 6 + qEulerProduct 25 *
(20 * X * qEulerProduct 1 ^ 4 * qEulerProduct 25 +
110 * X ^ 2 * qEulerProduct 1 ^ 3 * qEulerProduct 25 ^ 2 +
350 * X ^ 3 * qEulerProduct 1 ^ 2 * qEulerProduct 25 ^ 3 +
600 * X ^ 4 * qEulerProduct 1 * qEulerProduct 25 ^ 4 +
625 * X ^ 5 * qEulerProduct 25 ^ 5))
public noncomputable def triangularThetaSeries : PowerSeries ℤ :=
PowerSeries.mk fun n => (((Finset.range (n + 1)).filter fun m => m * (m + 1) / 2 = n).card : ℤ)
WantedExt/NumberTheory/SquaresTriangularRepresentationsWanted.lean:52
Sources
- S. E. Gladun and M. P. Chaudhary, Connecting Ramanujan's Theta Functions, the Rogers-Ramanujan Continued Fraction, and the Golden Ratio, INTEGERS 25 (2025), Article A43, Theorem 2.
Uses 2
Loading dependency explorer…
The dependency explorer needs JavaScript and its graph data.