Problems / erdos-1050
erdos-1050
proved Its root statement has a merged proof. Not yet explained or written up. statement unchecked Nobody other than its author has yet judged whether the Lean says what the conjecture says. The kernel cannot decide this; a person must. protocol: fidelity: mechanical-only review: needs an intent signer · 1 candidate, 1 cluster, 9 questions waitingErdős Problem 1050. The series $\sum_{n=1}^\infty \frac{1}{2^n - 3}$ is irrational. The source sum runs over $n \ge 1$; as a tsum over ℕ (which starts at $0$) it is reindexed $n \mapsto n + 1$, i.e. $\sum_{n=0}^\infty 1/(2^{n+1} - 3)$.
Erdős problem 1050 (calibration): a known result. Statement from formal-conjectures (FormalConjectures/ErdosProblems/1050.lean) · erdosproblems.com/1050; the record lists no licensed source text.
ProvedExplainedWritten upProved: a proof is on the record, so the problem's own statement is closed. 1 statement proposed beneath it is open for work. How to contribute →
A calibration target: a result already known, taken in on the formalization track to exercise the pipeline (Stages v3.17). It counts toward no open-problem claim and needs no steward.
Statements
14 statements. The problem's own statement is the one selected when the page opens. A statement is drawn above the statements it depends on, so the pieces of its proof are below it and a variant that uses it is above it. Select one to see its record.
Each set proves the problem or refutes it. Select a node or an edge to filter the drawing to that part of the proof; select it again to come back.
Proof 1 · root · by t1001-1050a: 3 statements, the proof's own and what its Lean term rests on. Read proof 1, dependencies first, every step beside its Lean →
statements not connected to the problem: speculative ones and related variants. Hover one for the lines the record measured; click to keep them; click it again, click empty space or press Esc to clear.
erdos-1050Rename or correct →
- status
- proved
- attempts
- 2 attempts
- proof
- On proof 1
The problem's statement.
What is claimed
theorem Opn.erdos_1050 :
Irrational (∑' n : ℕ, (1 : ℝ) / ((2 : ℝ) ^ (n + 1) - 3)) := by
sorryunverified · history This file states the theorem Opn.erdos_1050: the real number $\displaystyle \sum_{n=0}^{\infty} \frac{1}{2^{n+1}-3}$ is irrational.
How it is being proved
Proved by Proof.lean (merged in e80916551a30) · attestation 000326.
Proved from this hole by 20260917T141921Z-calib-1050-fable-partial.lean (merged in 7963dfe00bd8, attestation 000078).
borwein→ erdos-1050--h1-v2 (proved)$\displaystyle \exists\, a,b:\mathbb{N}\to\mathbb{Z}\ \ \bigl(\forall n\in\mathbb{N},\ b_n\,T-a_n\neq 0\bigr)\ \wedge\ \lim_{n\to\infty}\bigl(b_n\,T-a_n\bigr)=0,\qquad T=\sum_{m=0}^{\infty}\frac{1}{2^{m+3}-3}$
Read the partial proof (Lean)
theorem Opn.erdos_1050 :
Irrational (∑' n : ℕ, (1 : ℝ) / ((2 : ℝ) ^ (n + 1) - 3)) := by
-- annex: ebfc846b7b9ca01cf3880bbde14e6a4909e741934a08f0b4d43f8aa3b2405cb2
-- Borwein's theorem for the tail T = ∑_{n ≥ 3} 1/(2^n − 3), in Diophantine-approximant form:
-- integer sequences a, b with b n * T − a n never zero and tending to zero (Borwein 1991, 1992).
have borwein : ∃ a b : ℕ → ℤ,
(∀ n : ℕ, (b n : ℝ) * (∑' n : ℕ, (1 : ℝ) / ((2 : ℝ) ^ (n + 3) - 3)) - a n ≠ 0) ∧
Filter.Tendsto
(fun n : ℕ => (b n : ℝ) * (∑' n : ℕ, (1 : ℝ) / ((2 : ℝ) ^ (n + 3) - 3)) - a n)
Filter.atTop (nhds 0) := by
sorry
-- The irrationality criterion: a real with such approximants is irrational.
have criterion : ∀ x : ℝ, (∃ a b : ℕ → ℤ, (∀ n : ℕ, (b n : ℝ) * x - a n ≠ 0) ∧
Filter.Tendsto (fun n : ℕ => (b n : ℝ) * x - a n) Filter.atTop (nhds 0)) →
Irrational x := by
rintro x ⟨a, b, hne, hlim⟩ ⟨r, hr⟩
subst hr
have hden : (0 : ℝ) < r.den := by exact_mod_cast r.den_pos
obtain ⟨N, hN⟩ := (Metric.tendsto_atTop.mp hlim) (1 / r.den) (by positivity)
have h := hN N le_rfl
rw [Real.dist_eq, sub_zero] at h
have hnum : (r : ℝ) * r.den = r.num := by exact_mod_cast Rat.mul_den_eq_num r
have key : ((b N : ℝ) * r - a N) * r.den = ((b N * r.num - a N * r.den : ℤ) : ℝ) := by
push_cast
linear_combination (b N : ℝ) * hnum
have hz : (b N * r.num - a N * r.den : ℤ) ≠ 0 := by
intro h0
have h1 := key
rw [h0] at h1
push_cast at h1
rcases mul_eq_zero.mp h1 with h2 | h2
· exact hne N h2
· exact absurd h2 hden.ne'
have hge : (1 : ℝ) ≤ |((b N * r.num - a N * r.den : ℤ) : ℝ)| := by
exact_mod_cast Int.one_le_abs hz
rw [← key, abs_mul, abs_of_pos hden] at hge
have hlt : |(b N : ℝ) * r - a N| * r.den < 1 / r.den * r.den :=
mul_lt_mul_of_pos_right h hden
rw [one_div_mul_cancel hden.ne'] at hlt
linarith
have hT : Irrational (∑' n : ℕ, (1 : ℝ) / ((2 : ℝ) ^ (n + 3) - 3)) := criterion _ borwein
-- The literal series is the tail: its first two terms are −1 and 1.
have hpos : ∀ n : ℕ, (0 : ℝ) < (2 : ℝ) ^ (n + 3) - 3 := by
intro n
have h1 : (1 : ℝ) ≤ (2 : ℝ) ^ n := one_le_pow₀ (by norm_num)
have : (2 : ℝ) ^ (n + 3) = 8 * 2 ^ n := by ring
rw [this]
linarith
have htail : Summable (fun n : ℕ => (1 : ℝ) / ((2 : ℝ) ^ (n + 2 + 1) - 3)) := by
refine Summable.of_nonneg_of_le (fun n => ?_) (fun n => ?_)
(summable_geometric_of_lt_one (by norm_num : (0 : ℝ) ≤ 1 / 2) (by norm_num))
· exact div_nonneg zero_le_one (hpos n).le
· rw [one_div_pow]
refine one_div_le_one_div_of_le (by positivity) ?_
have h1 : (1 : ℝ) ≤ (2 : ℝ) ^ n := one_le_pow₀ (by norm_num)
have : (2 : ℝ) ^ (n + 2 + 1) = 8 * 2 ^ n := by ring
rw [this]
linarith
have hsum : Summable (fun n : ℕ => (1 : ℝ) / ((2 : ℝ) ^ (n + 1) - 3)) :=
(summable_nat_add_iff 2).mp htail
have hre : (∑' n : ℕ, (1 : ℝ) / ((2 : ℝ) ^ (n + 1) - 3)) =
∑' n : ℕ, (1 : ℝ) / ((2 : ℝ) ^ (n + 3) - 3) := by
rw [← hsum.sum_add_tsum_nat_add 2]
simp only [Finset.sum_range_succ, Finset.sum_range_zero]
norm_num
rw [hre]
exact hTThe gate replayed this file at its merge, each hole a sorry (D-12 #5); the whole file: targets/erdos-1050/nodes/erdos-1050/attempts/20260917T141921Z-calib-1050-fable-partial.lean
What is known
Notes
- Where erdos-1050 stands, and a ready assembly for the root (t0923-1050-b, 2026-09-23). full text →
- Informal argument for Erdős problem 1050: the irrationality of S = ∑_{n ≥ 0} 1/(2^(n+1) − 3). full text →
- What remains for erdos-1050 on the record as of 2026-09-29 (graph c5049c97), by t0929-2. full text →
Work on it
Approaches recorded as tried (D-14)
View the proof →Record details (words, files)
- hash
- 679c2dd5b140
- origin
- authored
- mathlib
- 0df444a360ea
- files
- Statement.lean ↗ · attestation ↗ · Proof.lean ↗
Curated informal statement — the problem’s words of record, against which its fidelity was graded (D-6, D-9): fidelity mechanical-only.
Erdős Problem 1050. The series $\sum_{n=1}^\infty \frac{1}{2^n - 3}$ is irrational. The source sum runs over $n \ge 1$; as a tsum over ℕ (which starts at $0$) it is reindexed $n \mapsto n + 1$, i.e. $\sum_{n=0}^\infty 1/(2^{n+1} - 3)$.
In words, unverified — what this statement says; written by t1006-w1, drafted with Claude Opus 5.5 (claude-opus-5-5) in a Claude Code agent session, 2026-10-06; no one has read it against the Lean and signed it. A gloss of a root is not its words of record: the curated statement above is (D-9).
Draft · drafted, by the model named above
This file states the theorem Opn.erdos_1050: the real number $\displaystyle \sum_{n=0}^{\infty} \frac{1}{2^{n+1}-3}$ is irrational.
In detail:
- The sum is Lean's
∑'over all natural numbers $n = 0, 1, 2, \dots$ (Mathlib's unconditional sum, atsum). Each term is the real number $1/(2^{n+1}-3)$, computed in $\mathbb{R}$. The terms are $-1, 1, \tfrac{1}{5}, \tfrac{1}{13}, \tfrac{1}{29}, \dots$; the first, at $n = 0$, is $1/(2-3) = -1$. - Re-indexed with $m = n+1$, this is the sum $\sum_{m \ge 1} 1/(2^m - 3)$ of Erdős problem 1050. The file's own comment says the statement is imported, as stated, from google-deepmind/formal-conjectures (
FormalConjectures/ErdosProblems/1050.lean, Apache-2.0). Irrational xis Mathlib's predicate: $x$ is not equal to $p/q$, read as a real number, for any rational $p/q$.- Two Lean conventions do not come into play here, but a reader should know the file leans on neither. Division by zero is defined to be $0$ in Lean; no denominator $2^{n+1}-3$ is zero (it is $-1$ at $n = 0$ and at least $1$ afterwards). And
∑'of a family that is not summable is defined to be $0$; the statement itself does not assert that the series converges, so the claim is about thetsumas Lean defines it. (The series does converge absolutely, since its terms are eventually bounded by a multiple of $2^{-n}$, so thetsumis the ordinary sum; the merged proof checks summability in its stephT.)
The statement has no hypotheses and no free variables. The file imports all of Mathlib; its body is sorry, the placeholder a statement file carries in place of a proof.
Rendered from gloss/27192f22f314….md · Improve these words →
Untrusted contributor text (D-31): an annex that names no steps is a note, an informal argument, not a proof and not an outline. The full text is on the statement’s record page.
- annex/v1 note Where erdos-1050 stands, and a ready assembly for the root (t0923-1050-b, 2026-09-23). by t0923-1050-b — not followed by any merged decomposition · full text →
- annex/v1 note Informal argument for Erdős problem 1050: the irrationality of S = ∑_{n ≥ 0} 1/(2^(n+1) − 3). by calib-1050-fable — followed by 20260917T141921Z-calib-1050-fable-partial.lean:
borwein→ erdos-1050--h1-v2 (proved) · full text → - annex/v1 note What remains for erdos-1050 on the record as of 2026-09-29 (graph c5049c97), by t0929-2. This updates annex b85da506… on this node… by t0929-2 — not followed by any merged decomposition · full text →
A statement is written := by sorry: the sorry holds the place of a proof, because a statement file only says what is claimed. A proof the gate checked is its own file, Proof.lean. How to read a proof page →
In a split, the partial proof assumes each and proves this statement from them. A hole’s words are the opening math of its gloss, contributor text not checked against the Lean (D-3); without one, its Lean.
erdos-1050--h1Rename or correct →
- status
- superseded
- attempts
- 0 attempts
- proof
- Not needed by any proof of this problem
Left open by a proof skeleton.
What is claimed
$\displaystyle \exists\, a,b:\ \bigl(\forall n\in\mathbb{N},\ b_n\,T-a_n\neq 0\bigr)\ \wedge\ \lim_{n\to\infty}\bigl(b_n\,T-a_n\bigr)=0,\qquad T=\sum_{m=0}^{\infty}\frac{1}{2^{m+3}-3}$
There are two sequences $a$, $b$ such that $b_n T - a_n$ is never zero and tends to $0$, where $T$ is the sum of $1/(2^{m+3}-3)$ over all $m\ge 0$ (Lean's ∑', with the summation variable also written n in the file). As written, a and b carry no binder types and the sum, the quotient and the coercions ↑ carry no type ascriptions, so the text does not fix the domain of the arithmetic (the display reads it with $a,b:\mathbb{N}\to\mathbb{Z}$ and the sum in $\mathbb{R}$, the types the parent's have borwein carries); the limit is Filter.Tendsto … atTop (nhds 0).
Lean
theorem erdos_1050__h1 : ∃ a b,
(∀ (n : ℕ), ↑(b n) * ∑' (n : ℕ), 1 / (2 ^ (n + 3) - 3) - ↑(a n) ≠ 0) ∧
Filter.Tendsto (fun n => ↑(b n) * ∑' (n : ℕ), 1 / (2 ^ (n + 3) - 3) - ↑(a n)) Filter.atTop (nhds 0) := by
sorryHow it is being proved
Superseded by erdos-1050--h1-v2. Work continues on the replacement; this statement is kept for its history (D-8). The curator's record: superseded by erdos-1050--h1-v2 on revision request targets/erdos-1050/nodes/erdos-1050--h1/revisions/20260917T215432Z-calib-lead-83dd.yaml (other-with-exhibit; D-8)
Superseded.
Work on it
View the record →Record details (words, files)
- hash
- cc1392172f16
- origin
- skeleton-hole
- mathlib
- 0df444a360ea
- files
- Statement.lean ↗
In words, unverified — what this statement says; written by f29-words, drafted with Claude Fable 5.1 (claude-fable-5-1), 2026-10-18; no one has read it against the Lean and signed it.
Draft · drafted, by the model named above
$\displaystyle \exists\, a,b:\ \bigl(\forall n\in\mathbb{N},\ b_n\,T-a_n\neq 0\bigr)\ \wedge\ \lim_{n\to\infty}\bigl(b_n\,T-a_n\bigr)=0,\qquad T=\sum_{m=0}^{\infty}\frac{1}{2^{m+3}-3}$
There are two sequences $a$, $b$ such that $b_n T - a_n$ is never zero and tends to $0$, where $T$ is the sum of $1/(2^{m+3}-3)$ over all $m\ge 0$ (Lean's ∑', with the summation variable also written n in the file). As written, a and b carry no binder types and the sum, the quotient and the coercions ↑ carry no type ascriptions, so the text does not fix the domain of the arithmetic (the display reads it with $a,b:\mathbb{N}\to\mathbb{Z}$ and the sum in $\mathbb{R}$, the types the parent's have borwein carries); the limit is Filter.Tendsto … atTop (nhds 0).
Rendered from gloss/3760ab1ed901….md · Improve these words →
A statement is written := by sorry: the sorry holds the place of a proof, because a statement file only says what is claimed. A proof the gate checked is its own file, Proof.lean. How to read a proof page →
erdos-1050--h1-v2Rename or correct →
- status
- proved
- attempts
- 4 attempts
- proof
- On proof 1
Hole borwein of erdos-1050 (split by 20260917T141921Z-calib-1050-fable-partial.lean).
What is claimed
$\displaystyle \exists\, a,b:\mathbb{N}\to\mathbb{Z}\ \ \bigl(\forall n\in\mathbb{N},\ b_n\,T-a_n\neq 0\bigr)\ \wedge\ \lim_{n\to\infty}\bigl(b_n\,T-a_n\bigr)=0,\qquad T=\sum_{m=0}^{\infty}\frac{1}{2^{m+3}-3}$
There are two sequences of integers $a_n$, $b_n$ such that $b_n T - a_n$ is never zero and converges to $0$ in $\mathbb{R}$ (Filter.Tendsto … Filter.atTop (nhds 0)), where $T$ is the real number $\sum_{m\ge 0} 1/(2^{m+3}-3) = \tfrac15+\tfrac1{13}+\tfrac1{29}+\cdots$. The sum is Lean's ∑' over all natural numbers (the file also calls the summation variable n; it is a separate bound variable), which is $0$ for a non-summable family, and $a_n$, $b_n$ are read as real numbers; no hypothesis is assumed and irrationality is not mentioned.
Lean
theorem erdos_1050__h1 : ∃ a b : ℕ → ℤ,
(∀ n : ℕ, (b n : ℝ) * (∑' n : ℕ, (1 : ℝ) / ((2 : ℝ) ^ (n + 3) - 3)) - a n ≠ 0) ∧
Filter.Tendsto
(fun n : ℕ => (b n : ℝ) * (∑' n : ℕ, (1 : ℝ) / ((2 : ℝ) ^ (n + 3) - 3)) - a n)
Filter.atTop (nhds 0) := by
sorryHow it is being proved
Revises erdos-1050--h1, which it replaced (D-8).
Proved by Proof.lean (merged in 879b5c03f7df) · attestation 000319.
Proved from this hole by 20260921T064200Z-tester-1050-2045-partial.lean (merged in 4f2769bcbc2b, attestation 000140).
hT→ erdos-1050--h1-v2--h1 (open)$\displaystyle T=\sum_{n=0}^{\infty}\frac{1}{2^{n+3}-3}=\frac15+\frac1{13}+\frac1{29}+\frac1{61}+\cdots\ \notin\ \mathbb{Q}$
Read the partial proof (Lean)
theorem erdos_1050__h1 : ∃ a b : ℕ → ℤ,
(∀ n : ℕ, (b n : ℝ) * (∑' n : ℕ, (1 : ℝ) / ((2 : ℝ) ^ (n + 3) - 3)) - a n ≠ 0) ∧
Filter.Tendsto
(fun n : ℕ => (b n : ℝ) * (∑' n : ℕ, (1 : ℝ) / ((2 : ℝ) ^ (n + 3) - 3)) - a n)
Filter.atTop (nhds 0) := by
-- annex: 64a620c1871c74b895ed548471f33a563f6b78f76de69ee1c3852308605c5122
-- Dirichlet: an irrational real has integer approximants b n * T - a n, nonzero and tending to 0.
have approximants_of_irrational (T : ℝ) (hT : Irrational T) : ∃ a b : ℕ → ℤ,
(∀ n : ℕ, (b n : ℝ) * T - a n ≠ 0) ∧
Filter.Tendsto (fun n : ℕ => (b n : ℝ) * T - a n) Filter.atTop (nhds 0) := by
have h : ∀ n : ℕ, ∃ j k : ℤ, 0 < k ∧ k ≤ ((n + 1 : ℕ) : ℤ) ∧
|(k : ℝ) * T - j| ≤ 1 / (((n + 1 : ℕ) : ℝ) + 1) :=
fun n => Real.exists_int_int_abs_mul_sub_le T (Nat.succ_pos n)
choose a b hb0 _ hab using h
refine ⟨a, b, fun n h0 => ?_, ?_⟩
· have hbne : (b n : ℝ) ≠ 0 := by exact_mod_cast (hb0 n).ne'
have hq : (((a n : ℚ) / (b n : ℚ) : ℚ) : ℝ) = T := by
push_cast
field_simp
linarith
exact hT ⟨_, hq⟩
· refine squeeze_zero_norm (a := fun n : ℕ => 1 / (((n + 1 : ℕ) : ℝ) + 1)) (fun n => ?_) ?_
· rw [Real.norm_eq_abs]; exact hab n
· have := tendsto_one_div_add_atTop_nhds_zero_nat (𝕜 := ℝ)
have h2 := (Filter.tendsto_add_atTop_iff_nat 1).mpr this
simpa using h2
-- The whole of Borwein's theorem for the tail T (q = 2, r = -3), in its plain form.
have hT : Irrational (∑' n : ℕ, (1 : ℝ) / ((2 : ℝ) ^ (n + 3) - 3)) := by
sorry
exact approximants_of_irrational _ hTThe gate replayed this file at its merge, each hole a sorry (D-12 #5); the whole file: targets/erdos-1050/nodes/erdos-1050--h1-v2/attempts/20260921T064200Z-tester-1050-2045-partial.lean
Proved from this hole by 20260924T123700Z-t0924-1050-mcp-partial.lean (merged in 8353717a175f, attestation 000196).
integrality→ erdos-1050--h1-v2--h2 (proved)$\displaystyle \exists\, a,b:\mathbb{N}\to\mathbb{Z}\ \ \forall n\ge 1:\qquad b(n)\,z-a(n)\;=\;9^n\,W(n)\,E(n)$
Read the partial proof (Lean)
theorem erdos_1050__h1 : ∃ a b : ℕ → ℤ,
(∀ n : ℕ, (b n : ℝ) * (∑' n : ℕ, (1 : ℝ) / ((2 : ℝ) ^ (n + 3) - 3)) - a n ≠ 0) ∧
Filter.Tendsto
(fun n : ℕ => (b n : ℝ) * (∑' n : ℕ, (1 : ℝ) / ((2 : ℝ) ^ (n + 3) - 3)) - a n)
Filter.atTop (nhds 0) := by
-- annex: e6849740c2b9808384d1f619c8c2e893c507c1bc30907ddd8aec11b83bdd3949
-- Transfer (proved): z = 3/5 - 3T, where z is Borwein's reduced q-harmonic value (q = 2, c = 8/3).
have transfer : (∑' j : ℕ, (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (j + 1))⁻¹) = 3 / 5 - 3 * (∑' n : ℕ, (1 : ℝ) / ((2 : ℝ) ^ (n + 3) - 3)) := by
have hs : Summable (fun n : ℕ => (1 : ℝ) / ((2 : ℝ) ^ (n + 3) - 3)) := by
refine Summable.of_nonneg_of_le (fun n => ?_) (fun n => ?_)
(summable_geometric_of_lt_one (by norm_num : (0:ℝ) ≤ 1/2) (by norm_num : (1/2:ℝ) < 1))
· have h1 : (1:ℝ) ≤ 2 ^ n := one_le_pow₀ (by norm_num)
have h2 : (2:ℝ) ^ (n + 3) = 8 * 2 ^ n := by ring
apply div_nonneg zero_le_one
rw [h2]; linarith
· have h1 : (1:ℝ) ≤ 2 ^ n := one_le_pow₀ (by norm_num)
have h2 : (2:ℝ) ^ (n + 3) = 8 * 2 ^ n := by ring
rw [h2, one_div_pow]
exact one_div_le_one_div_of_le (by positivity) (by linarith)
have hterm : ∀ j : ℕ, (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (j + 1))⁻¹
= -3 * ((1 : ℝ) / ((2 : ℝ) ^ ((j + 1) + 3) - 3)) := by
intro j
have hp : (2 : ℝ) ≤ (2 : ℝ) ^ (j + 1) := by
calc (2 : ℝ) = 2 ^ 1 := (pow_one 2).symm
_ ≤ 2 ^ (j + 1) := pow_le_pow_right₀ (by norm_num) (by omega)
have hexp : (2 : ℝ) ^ ((j + 1) + 3) = 8 * 2 ^ (j + 1) := by ring
rw [hexp]
have hd2 : (1 : ℝ) - 8 / 3 * 2 ^ (j + 1) ≠ 0 := ne_of_lt (by nlinarith [hp])
have hd1 : (8 : ℝ) * 2 ^ (j + 1) - 3 ≠ 0 := ne_of_gt (by nlinarith [hp])
rw [inv_eq_one_div, mul_one_div, div_eq_div_iff hd2 hd1]
ring
rw [tsum_congr hterm, tsum_mul_left, hs.tsum_eq_zero_add]
norm_num
ring
-- Non-vanishing of the clearing factor W(n) (proved).
have w_ne : ∀ n : ℕ, 1 ≤ n → ((Nat.factorial (n - 2) : ℝ) * (∏ k ∈ Finset.Icc 1 n, (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ k)) * (∏ k ∈ Finset.Icc ((n + 1) / 2) n, (1 - (2 : ℝ) ^ k))) ≠ 0 := by
intro n hn
refine mul_ne_zero (mul_ne_zero (by exact_mod_cast Nat.factorial_ne_zero _) ?_) ?_
· rw [Finset.prod_ne_zero_iff]
intro k hk
have hk1 : 1 ≤ k := (Finset.mem_Icc.mp hk).1
have hp : (2 : ℝ) ≤ (2 : ℝ) ^ k := by
calc (2 : ℝ) = 2 ^ 1 := (pow_one 2).symm
_ ≤ 2 ^ k := pow_le_pow_right₀ (by norm_num) hk1
nlinarith
· rw [Finset.prod_ne_zero_iff]
intro k hk
have hk1 : 1 ≤ k := by have := (Finset.mem_Icc.mp hk).1; omega
have hp : (2 : ℝ) ≤ (2 : ℝ) ^ k := by
calc (2 : ℝ) = 2 ^ 1 := (pow_one 2).symm
_ ≤ 2 ^ k := pow_le_pow_right₀ (by norm_num) hk1
intro h; linarith
-- Non-vanishing of the error series E(n) (proved: each term has sign (-1)^(n-1)).
have e_ne : ∀ n : ℕ, 1 ≤ n → (∑' j : ℕ, (-(1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (((n + j : ℕ) : ℤ) + n))⁻¹ * ∏ k ∈ Finset.Icc 1 (n - 1), (1 - (2 : ℝ) ^ ((k : ℤ) - (n + j : ℕ))) * (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ ((k : ℤ) + (n + j : ℕ)))⁻¹)) ≠ 0 := by
-- Ported from lean-gallery (Trevor Morris, Apache-2.0), Approximants.lean, Eterm_ne_zero.
intro n hn
have two_le_zpow : ∀ a : ℤ, 1 ≤ a → (2 : ℝ) ≤ (2 : ℝ) ^ a := fun a ha => by
calc (2 : ℝ) = (2 : ℝ) ^ (1 : ℤ) := by norm_num
_ ≤ (2 : ℝ) ^ a := zpow_le_zpow_right₀ (by norm_num) ha
have inv_le : ∀ a : ℤ, 1 ≤ a → |(1 - (8 / 3 : ℝ) * (2 : ℝ) ^ a)⁻¹| ≤ (2 : ℝ) ^ (-a) := fun a ha => by
have hqa := two_le_zpow a ha
have hqpos : (0 : ℝ) < (2 : ℝ) ^ a := zpow_pos (by norm_num) a
have hge : (2 : ℝ) ^ a ≤ (8 / 3 : ℝ) * (2 : ℝ) ^ a - 1 := by nlinarith
have habs : |(1 - (8 / 3 : ℝ) * (2 : ℝ) ^ a)⁻¹| = ((8 / 3 : ℝ) * (2 : ℝ) ^ a - 1)⁻¹ := by
rw [abs_inv]; congr 1; rw [abs_of_neg (by linarith)]; ring
rw [habs, zpow_neg]
exact inv_anti₀ hqpos hge
have lead_neg : ∀ a : ℤ, 1 ≤ a → (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ a)⁻¹ < 0 := fun a ha => by
have h2 := two_le_zpow a ha
have hneg : (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ a) < 0 := by nlinarith
exact inv_lt_zero.mpr hneg
have factor_neg : ∀ k m : ℕ, 1 ≤ k → k < m →
(1 - (2 : ℝ) ^ ((k : ℤ) - m)) * (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ ((k : ℤ) + m))⁻¹ < 0 := by
intro k m hk hkm
have hnum : 0 < 1 - (2 : ℝ) ^ ((k : ℤ) - m) := by
have hle : (2 : ℝ) ^ ((k : ℤ) - m) ≤ (2 : ℝ) ^ (-1 : ℤ) :=
zpow_le_zpow_right₀ (by norm_num) (by omega)
have heq : (2 : ℝ) ^ (-1 : ℤ) = 1 / 2 := by rw [zpow_neg, zpow_one]; norm_num
rw [heq] at hle; linarith
exact mul_neg_of_pos_of_neg hnum (lead_neg _ (by omega))
have factor_le : ∀ k m : ℕ, 1 ≤ k → k < m →
|(1 - (2 : ℝ) ^ ((k : ℤ) - m)) * (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ ((k : ℤ) + m))⁻¹| ≤ 1 := by
intro k m hk hkm
rw [abs_mul]
have h1 : |1 - (2 : ℝ) ^ ((k : ℤ) - m)| ≤ 1 := by
have hle1 : (2 : ℝ) ^ ((k : ℤ) - m) ≤ 1 := by
calc (2 : ℝ) ^ ((k : ℤ) - m) ≤ (2 : ℝ) ^ (0 : ℤ) := zpow_le_zpow_right₀ (by norm_num) (by omega)
_ = 1 := by norm_num
have hpos : 0 < (2 : ℝ) ^ ((k : ℤ) - m) := zpow_pos (by norm_num) _
rw [abs_of_nonneg (by linarith)]; linarith
have h2 := inv_le ((k : ℤ) + m) (by omega)
have h3 : (2 : ℝ) ^ (-((k : ℤ) + m)) ≤ 1 := zpow_le_one_of_nonpos₀ (by norm_num) (by omega)
calc _ ≤ 1 * 1 := mul_le_mul h1 (h2.trans h3) (abs_nonneg _) (by norm_num)
_ = 1 := by ring
-- each term is bounded by (1/2)^j
have term_le : ∀ j : ℕ, |(-(1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (((n + j : ℕ) : ℤ) + n))⁻¹ * ∏ k ∈ Finset.Icc 1 (n - 1), (1 - (2 : ℝ) ^ ((k : ℤ) - (n + j : ℕ))) * (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ ((k : ℤ) + (n + j : ℕ)))⁻¹)| ≤ (1 / 2 : ℝ) ^ j := by
intro j
rw [abs_mul, abs_neg]
have hlead := inv_le (((n + j : ℕ) : ℤ) + n) (by omega)
have hprod : |∏ k ∈ Finset.Icc 1 (n - 1), (1 - (2 : ℝ) ^ ((k : ℤ) - (n + j : ℕ))) * (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ ((k : ℤ) + (n + j : ℕ)))⁻¹| ≤ 1 := by
rw [Finset.abs_prod]
apply Finset.prod_le_one (fun k _ => abs_nonneg _)
intro k hk
rw [Finset.mem_Icc] at hk
exact factor_le k (n + j) hk.1 (by omega)
have hexp : (2 : ℝ) ^ (-(((n + j : ℕ) : ℤ) + n)) ≤ (2 : ℝ) ^ (-(j : ℤ)) := by
apply zpow_le_zpow_right₀ (by norm_num); push_cast; omega
have hj : (2 : ℝ) ^ (-(j : ℤ)) = (1 / 2 : ℝ) ^ j := by
rw [zpow_neg, zpow_natCast, one_div, inv_pow]
calc _ ≤ (2 : ℝ) ^ (-(((n + j : ℕ) : ℤ) + n)) * 1 :=
mul_le_mul hlead hprod (abs_nonneg _) (le_of_lt (zpow_pos (by norm_num) _))
_ ≤ (1 / 2 : ℝ) ^ j := by rw [mul_one, ← hj]; exact hexp
have hsum : Summable (fun j : ℕ => (-(1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (((n + j : ℕ) : ℤ) + n))⁻¹ * ∏ k ∈ Finset.Icc 1 (n - 1), (1 - (2 : ℝ) ^ ((k : ℤ) - (n + j : ℕ))) * (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ ((k : ℤ) + (n + j : ℕ)))⁻¹)) := by
apply Summable.of_norm_bounded (g := fun j => (1 / 2 : ℝ) ^ j)
· exact summable_geometric_of_lt_one (by norm_num) (by norm_num)
· intro j; rw [Real.norm_eq_abs]; exact term_le j
have hpos : ∀ j : ℕ, 0 < (-1 : ℝ) ^ (n - 1) * (-(1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (((n + j : ℕ) : ℤ) + n))⁻¹ * ∏ k ∈ Finset.Icc 1 (n - 1), (1 - (2 : ℝ) ^ ((k : ℤ) - (n + j : ℕ))) * (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ ((k : ℤ) + (n + j : ℕ)))⁻¹) := by
intro j
have hL := lead_neg (((n + j : ℕ) : ℤ) + n) (by omega)
have hcard : (Finset.Icc 1 (n - 1)).card = n - 1 := by rw [Nat.card_Icc, Nat.add_sub_cancel]
have h1 : (-1 : ℝ) ^ (n - 1) = ∏ _k ∈ Finset.Icc 1 (n - 1), (-1 : ℝ) := by
rw [Finset.prod_const, hcard]
have hP : 0 < (-1 : ℝ) ^ (n - 1) * ∏ k ∈ Finset.Icc 1 (n - 1), (1 - (2 : ℝ) ^ ((k : ℤ) - (n + j : ℕ))) * (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ ((k : ℤ) + (n + j : ℕ)))⁻¹ := by
rw [h1, ← Finset.prod_mul_distrib]
apply Finset.prod_pos
intro k hk
rw [Finset.mem_Icc] at hk
have hf := factor_neg k (n + j) hk.1 (by omega)
linarith
have hnegL : (0 : ℝ) < -(1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (((n + j : ℕ) : ℤ) + n))⁻¹ := by linarith
have := mul_pos hnegL hP
linarith [this, show (-1 : ℝ) ^ (n - 1) * (-(1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (((n + j : ℕ) : ℤ) + n))⁻¹ * ∏ k ∈ Finset.Icc 1 (n - 1), (1 - (2 : ℝ) ^ ((k : ℤ) - (n + j : ℕ))) * (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ ((k : ℤ) + (n + j : ℕ)))⁻¹) = -(1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (((n + j : ℕ) : ℤ) + n))⁻¹ * ((-1 : ℝ) ^ (n - 1) * ∏ k ∈ Finset.Icc 1 (n - 1), (1 - (2 : ℝ) ^ ((k : ℤ) - (n + j : ℕ))) * (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ ((k : ℤ) + (n + j : ℕ)))⁻¹) by ring]
have hp : 0 < ∑' j : ℕ, (-1 : ℝ) ^ (n - 1) * (-(1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (((n + j : ℕ) : ℤ) + n))⁻¹ * ∏ k ∈ Finset.Icc 1 (n - 1), (1 - (2 : ℝ) ^ ((k : ℤ) - (n + j : ℕ))) * (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ ((k : ℤ) + (n + j : ℕ)))⁻¹) :=
(hsum.mul_left _).tsum_pos (fun j => le_of_lt (hpos j)) 0 (hpos 0)
rw [tsum_mul_left] at hp
intro h0
rw [h0, mul_zero] at hp
exact lt_irrefl 0 hp
-- Decay (Borwein Lemma 4, proved): the cleared error 9^n W(n) E(n) tends to 0.
have decay : Filter.Tendsto (fun n : ℕ => (9 : ℝ) ^ n * ((Nat.factorial (n - 2) : ℝ) * (∏ k ∈ Finset.Icc 1 n, (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ k)) * (∏ k ∈ Finset.Icc ((n + 1) / 2) n, (1 - (2 : ℝ) ^ k))) * (∑' j : ℕ, (-(1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (((n + j : ℕ) : ℤ) + n))⁻¹ * ∏ k ∈ Finset.Icc 1 (n - 1), (1 - (2 : ℝ) ^ ((k : ℤ) - (n + j : ℕ))) * (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ ((k : ℤ) + (n + j : ℕ)))⁻¹))) Filter.atTop (nhds 0) := by
-- Ported from lean-gallery (Trevor Morris, Apache-2.0), Approximants.lean:
-- Iterm_abs_le_geom, Eterm_abs_le', Wterm_abs_le, cleared_error_le, combine_asymptotic.
have two_le_pow : ∀ k : ℕ, 1 ≤ k → (2 : ℝ) ≤ (2 : ℝ) ^ k := fun k hk => by
calc (2 : ℝ) = 2 ^ 1 := (pow_one 2).symm
_ ≤ 2 ^ k := pow_le_pow_right₀ (by norm_num) hk
have two_le_zpow : ∀ a : ℤ, 1 ≤ a → (2 : ℝ) ≤ (2 : ℝ) ^ a := fun a ha => by
calc (2 : ℝ) = (2 : ℝ) ^ (1 : ℤ) := by norm_num
_ ≤ (2 : ℝ) ^ a := zpow_le_zpow_right₀ (by norm_num) ha
have inv_le : ∀ a : ℤ, 1 ≤ a → |(1 - (8 / 3 : ℝ) * (2 : ℝ) ^ a)⁻¹| ≤ (2 : ℝ) ^ (-a) := fun a ha => by
have hqa := two_le_zpow a ha
have hqpos : (0 : ℝ) < (2 : ℝ) ^ a := zpow_pos (by norm_num) a
have hge : (2 : ℝ) ^ a ≤ (8 / 3 : ℝ) * (2 : ℝ) ^ a - 1 := by nlinarith
have habs : |(1 - (8 / 3 : ℝ) * (2 : ℝ) ^ a)⁻¹| = ((8 / 3 : ℝ) * (2 : ℝ) ^ a - 1)⁻¹ := by
rw [abs_inv]; congr 1; rw [abs_of_neg (by linarith)]; ring
rw [habs, zpow_neg]
exact inv_anti₀ hqpos hge
have factor_abs_le : ∀ k m : ℕ, 1 ≤ k → k < m →
|(1 - (2 : ℝ) ^ ((k : ℤ) - m)) * (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ ((k : ℤ) + m))⁻¹| ≤ ((2 : ℝ) ^ (k + m))⁻¹ := by
intro k m hk hkm
rw [abs_mul]
have h1 : |1 - (2 : ℝ) ^ ((k : ℤ) - m)| ≤ 1 := by
have hle1 : (2 : ℝ) ^ ((k : ℤ) - m) ≤ 1 := by
calc (2 : ℝ) ^ ((k : ℤ) - m) ≤ (2 : ℝ) ^ (0 : ℤ) := zpow_le_zpow_right₀ (by norm_num) (by omega)
_ = 1 := by norm_num
have hpos : 0 < (2 : ℝ) ^ ((k : ℤ) - m) := zpow_pos (by norm_num) _
rw [abs_of_nonneg (by linarith)]; linarith
have h2 := inv_le ((k : ℤ) + m) (by omega)
have h3 : (2 : ℝ) ^ (-((k : ℤ) + m)) = ((2 : ℝ) ^ (k + m))⁻¹ := by
rw [zpow_neg, ← zpow_natCast (2 : ℝ) (k + m), Nat.cast_add]
calc _ ≤ 1 * (2 : ℝ) ^ (-((k : ℤ) + m)) := mul_le_mul h1 h2 (abs_nonneg _) (by norm_num)
_ = ((2 : ℝ) ^ (k + m))⁻¹ := by rw [one_mul, h3]
have exp_identity : ∀ n : ℕ, 1 ≤ n → ∀ m : ℕ, (m + n) + ∑ k ∈ Finset.Icc 1 (n - 1), (k + m)
= (n + ∑ k ∈ Finset.Icc 1 (n - 1), k) + n * m := by
intro n hn m
rw [Finset.sum_add_distrib, Finset.sum_const, Nat.card_Icc, Nat.add_sub_cancel, smul_eq_mul]
have hmul : (n - 1) * m + m = n * m := by
rw [Nat.sub_one_mul, Nat.sub_add_cancel (Nat.le_mul_of_pos_left m hn)]
omega
have I_geom : ∀ n m : ℕ, 1 ≤ n → n ≤ m →
|(-(1 - (8 / 3 : ℝ) * (2 : ℝ) ^ ((m : ℤ) + n))⁻¹ * ∏ k ∈ Finset.Icc 1 (n - 1), (1 - (2 : ℝ) ^ ((k : ℤ) - m)) * (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ ((k : ℤ) + m))⁻¹)| ≤ ((2 : ℝ) ^ (n + (∑ k ∈ Finset.Icc 1 (n - 1), k)))⁻¹ * (((2 : ℝ) ^ n)⁻¹) ^ m := by
intro n m hn hnm
rw [abs_mul, abs_neg]
have hlead : |(1 - (8 / 3 : ℝ) * (2 : ℝ) ^ ((m : ℤ) + n))⁻¹| ≤ ((2 : ℝ) ^ (m + n))⁻¹ := by
have h := inv_le ((m : ℤ) + n) (by omega)
have he : (2 : ℝ) ^ (-((m : ℤ) + n)) = ((2 : ℝ) ^ (m + n))⁻¹ := by
rw [zpow_neg, ← zpow_natCast (2 : ℝ) (m + n), Nat.cast_add]
rwa [he] at h
have hprod : |∏ k ∈ Finset.Icc 1 (n - 1), (1 - (2 : ℝ) ^ ((k : ℤ) - m)) * (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ ((k : ℤ) + m))⁻¹|
≤ ∏ k ∈ Finset.Icc 1 (n - 1), ((2 : ℝ) ^ (k + m))⁻¹ := by
rw [Finset.abs_prod]
apply Finset.prod_le_prod (fun k _ => abs_nonneg _)
intro k hk; rw [Finset.mem_Icc] at hk
exact factor_abs_le k m hk.1 (by omega)
refine (mul_le_mul hlead hprod (abs_nonneg _) (le_of_lt (inv_pos.mpr (pow_pos (by norm_num) _)))).trans (le_of_eq ?_)
have hL : ((2 : ℝ) ^ (m + n))⁻¹ * ∏ k ∈ Finset.Icc 1 (n - 1), ((2 : ℝ) ^ (k + m))⁻¹
= ((2 : ℝ) ^ ((m + n) + ∑ k ∈ Finset.Icc 1 (n - 1), (k + m)))⁻¹ := by
rw [Finset.prod_inv_distrib, Finset.prod_pow_eq_pow_sum, ← mul_inv, ← pow_add]
have hR : ((2 : ℝ) ^ (n + (∑ k ∈ Finset.Icc 1 (n - 1), k)))⁻¹ * (((2 : ℝ) ^ n)⁻¹) ^ m
= ((2 : ℝ) ^ ((n + (∑ k ∈ Finset.Icc 1 (n - 1), k)) + n * m))⁻¹ := by
rw [inv_pow, ← pow_mul, ← mul_inv, ← pow_add]
rw [hL, hR, exp_identity n hn m]
have E_le : ∀ n : ℕ, 1 ≤ n → |(∑' j : ℕ, (-(1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (((n + j : ℕ) : ℤ) + n))⁻¹ * ∏ k ∈ Finset.Icc 1 (n - 1), (1 - (2 : ℝ) ^ ((k : ℤ) - (n + j : ℕ))) * (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ ((k : ℤ) + (n + j : ℕ)))⁻¹))| ≤ 2 * ((2 : ℝ) ^ (n + (∑ k ∈ Finset.Icc 1 (n - 1), k) + n ^ 2))⁻¹ := by
intro n hn
set r : ℝ := ((2 : ℝ) ^ n)⁻¹ with hr_def
set Cn : ℝ := ((2 : ℝ) ^ (n + (∑ k ∈ Finset.Icc 1 (n - 1), k)))⁻¹ with hCn_def
have hr0 : 0 ≤ r := le_of_lt (inv_pos.mpr (pow_pos (by norm_num) n))
have hqn2 : (2 : ℝ) ≤ (2 : ℝ) ^ n := two_le_pow n hn
have hrh : r ≤ 1 / 2 := by rw [hr_def, inv_eq_one_div]; exact one_div_le_one_div_of_le (by norm_num) hqn2
have hr1 : r < 1 := by linarith
have hCn0 : 0 ≤ Cn := le_of_lt (inv_pos.mpr (pow_pos (by norm_num) _))
have hge : ∀ j : ℕ, |(-(1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (((n + j : ℕ) : ℤ) + n))⁻¹ * ∏ k ∈ Finset.Icc 1 (n - 1), (1 - (2 : ℝ) ^ ((k : ℤ) - (n + j : ℕ))) * (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ ((k : ℤ) + (n + j : ℕ)))⁻¹)| ≤ Cn * r ^ (n + j) := fun j =>
I_geom n (n + j) hn (Nat.le_add_right n j)
have hsummaj : Summable (fun j : ℕ => Cn * r ^ (n + j)) := by
simp_rw [pow_add]
exact ((summable_geometric_of_lt_one hr0 hr1).mul_left _).mul_left _
have hsummabs : Summable (fun j : ℕ => |(-(1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (((n + j : ℕ) : ℤ) + n))⁻¹ * ∏ k ∈ Finset.Icc 1 (n - 1), (1 - (2 : ℝ) ^ ((k : ℤ) - (n + j : ℕ))) * (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ ((k : ℤ) + (n + j : ℕ)))⁻¹)|) :=
Summable.of_nonneg_of_le (fun j => abs_nonneg _) hge hsummaj
have h1 : |(∑' j : ℕ, (-(1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (((n + j : ℕ) : ℤ) + n))⁻¹ * ∏ k ∈ Finset.Icc 1 (n - 1), (1 - (2 : ℝ) ^ ((k : ℤ) - (n + j : ℕ))) * (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ ((k : ℤ) + (n + j : ℕ)))⁻¹))| ≤ ∑' j : ℕ, |(-(1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (((n + j : ℕ) : ℤ) + n))⁻¹ * ∏ k ∈ Finset.Icc 1 (n - 1), (1 - (2 : ℝ) ^ ((k : ℤ) - (n + j : ℕ))) * (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ ((k : ℤ) + (n + j : ℕ)))⁻¹)| := by
have hnorm := norm_tsum_le_tsum_norm (f := fun j : ℕ => (-(1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (((n + j : ℕ) : ℤ) + n))⁻¹ * ∏ k ∈ Finset.Icc 1 (n - 1), (1 - (2 : ℝ) ^ ((k : ℤ) - (n + j : ℕ))) * (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ ((k : ℤ) + (n + j : ℕ)))⁻¹))
(by simpa only [Real.norm_eq_abs] using hsummabs)
simpa only [Real.norm_eq_abs] using hnorm
have h2 := hsummabs.tsum_le_tsum hge hsummaj
have h3 : ∑' j : ℕ, Cn * r ^ (n + j) = Cn * r ^ n * (1 - r)⁻¹ := by
simp_rw [pow_add, ← mul_assoc]
rw [tsum_mul_left, tsum_geometric_of_lt_one hr0 hr1]
have htail : (1 - r)⁻¹ ≤ 2 := by
calc (1 - r)⁻¹ ≤ (1 / 2 : ℝ)⁻¹ := inv_anti₀ (by norm_num) (by linarith)
_ = 2 := by norm_num
have hC : Cn * r ^ n = ((2 : ℝ) ^ (n + (∑ k ∈ Finset.Icc 1 (n - 1), k) + n ^ 2))⁻¹ := by
rw [hCn_def, hr_def, inv_pow, ← pow_mul, ← mul_inv, ← pow_add, sq]
have hB : 0 ≤ ((2 : ℝ) ^ (n + (∑ k ∈ Finset.Icc 1 (n - 1), k) + n ^ 2))⁻¹ := le_of_lt (inv_pos.mpr (pow_pos (by norm_num) _))
calc _ ≤ _ := h1
_ ≤ _ := h2
_ = Cn * r ^ n * (1 - r)⁻¹ := h3
_ = ((2 : ℝ) ^ (n + (∑ k ∈ Finset.Icc 1 (n - 1), k) + n ^ 2))⁻¹ * (1 - r)⁻¹ := by rw [hC]
_ ≤ ((2 : ℝ) ^ (n + (∑ k ∈ Finset.Icc 1 (n - 1), k) + n ^ 2))⁻¹ * 2 := mul_le_mul_of_nonneg_left htail hB
_ = 2 * ((2 : ℝ) ^ (n + (∑ k ∈ Finset.Icc 1 (n - 1), k) + n ^ 2))⁻¹ := by ring
have W_le : ∀ n : ℕ, 1 ≤ n → |((Nat.factorial (n - 2) : ℝ) * (∏ k ∈ Finset.Icc 1 n, (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ k)) * (∏ k ∈ Finset.Icc ((n + 1) / 2) n, (1 - (2 : ℝ) ^ k)))| ≤ (Nat.factorial (n - 2) : ℝ) * (8 / 3 : ℝ) ^ n
* (2 : ℝ) ^ (∑ k ∈ Finset.Icc 1 n, k) * (2 : ℝ) ^ (∑ k ∈ Finset.Icc 1 n, k) := by
intro n hn
have hfac : (0:ℝ) ≤ (Nat.factorial (n-2) : ℝ) := by positivity
have hqS : (0:ℝ) ≤ (2 : ℝ) ^ (∑ k ∈ Finset.Icc 1 n, k) := by positivity
rw [abs_mul, abs_mul, abs_of_nonneg hfac]
have hP1 : |∏ k ∈ Finset.Icc 1 n, (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ k)| ≤ (8 / 3 : ℝ) ^ n * (2 : ℝ) ^ (∑ k ∈ Finset.Icc 1 n, k) := by
rw [Finset.abs_prod]
calc ∏ k ∈ Finset.Icc 1 n, |1 - (8 / 3 : ℝ) * (2 : ℝ) ^ k|
≤ ∏ k ∈ Finset.Icc 1 n, (8 / 3 : ℝ) * (2 : ℝ) ^ k := by
apply Finset.prod_le_prod (fun k _ => abs_nonneg _)
intro k hk; rw [Finset.mem_Icc] at hk
have := two_le_pow k hk.1
rw [abs_of_neg (by nlinarith : (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ k) < 0)]
nlinarith
_ = (8 / 3 : ℝ) ^ n * (2 : ℝ) ^ (∑ k ∈ Finset.Icc 1 n, k) := by
rw [Finset.prod_mul_distrib, Finset.prod_const, Finset.prod_pow_eq_pow_sum, Nat.card_Icc,
Nat.add_sub_cancel]
have hP2 : |∏ k ∈ Finset.Icc ((n + 1) / 2) n, (1 - (2 : ℝ) ^ k)| ≤ (2 : ℝ) ^ (∑ k ∈ Finset.Icc 1 n, k) := by
rw [Finset.abs_prod]
calc ∏ k ∈ Finset.Icc ((n + 1) / 2) n, |1 - (2 : ℝ) ^ k|
≤ ∏ k ∈ Finset.Icc ((n + 1) / 2) n, (2 : ℝ) ^ k := by
apply Finset.prod_le_prod (fun k _ => abs_nonneg _)
intro k hk; rw [Finset.mem_Icc] at hk
have := two_le_pow k (by omega)
rw [abs_of_nonpos (by linarith : (1 - (2 : ℝ) ^ k) ≤ 0)]
linarith
_ = (2 : ℝ) ^ (∑ k ∈ Finset.Icc ((n + 1) / 2) n, k) := Finset.prod_pow_eq_pow_sum _ _ _
_ ≤ (2 : ℝ) ^ (∑ k ∈ Finset.Icc 1 n, k) :=
pow_le_pow_right₀ (by norm_num)
(Finset.sum_le_sum_of_subset (Finset.Icc_subset_Icc (by omega) (le_refl n)))
calc (Nat.factorial (n - 2) : ℝ) * |∏ k ∈ Finset.Icc 1 n, (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ k)|
* |∏ k ∈ Finset.Icc ((n + 1) / 2) n, (1 - (2 : ℝ) ^ k)|
≤ (Nat.factorial (n - 2) : ℝ) * ((8 / 3 : ℝ) ^ n * (2 : ℝ) ^ (∑ k ∈ Finset.Icc 1 n, k)) * (2 : ℝ) ^ (∑ k ∈ Finset.Icc 1 n, k) := by
apply mul_le_mul _ hP2 (abs_nonneg _) (mul_nonneg hfac (by positivity))
exact mul_le_mul_of_nonneg_left hP1 hfac
_ = _ := by ring
have gauss_Icc : ∀ n : ℕ, 2 * (∑ k ∈ Finset.Icc 1 n, k) = n * (n + 1) := by
intro n
have hconv : (∑ k ∈ Finset.Icc 1 n, k) = ∑ k ∈ Finset.range (n + 1), k := by
apply Finset.sum_subset
· intro x hx; rw [Finset.mem_Icc] at hx; rw [Finset.mem_range]; omega
· intro x hx hx2; rw [Finset.mem_range] at hx; rw [Finset.mem_Icc] at hx2; omega
rw [hconv, mul_comm, Finset.sum_range_id_mul_two, Nat.add_sub_cancel, Nat.mul_comm]
have cleared_le : ∀ n : ℕ, 1 ≤ n → |(9 : ℝ) ^ n * ((Nat.factorial (n - 2) : ℝ) * (∏ k ∈ Finset.Icc 1 n, (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ k)) * (∏ k ∈ Finset.Icc ((n + 1) / 2) n, (1 - (2 : ℝ) ^ k))) * (∑' j : ℕ, (-(1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (((n + j : ℕ) : ℤ) + n))⁻¹ * ∏ k ∈ Finset.Icc 1 (n - 1), (1 - (2 : ℝ) ^ ((k : ℤ) - (n + j : ℕ))) * (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ ((k : ℤ) + (n + j : ℕ)))⁻¹))|
≤ 2 * (Nat.factorial (n - 2) : ℝ) * (24 : ℝ) ^ n * ((2 : ℝ) ^ (∑ k ∈ Finset.Icc 1 (n - 1), k))⁻¹ := by
intro n hn
have hexp : n + (∑ k ∈ Finset.Icc 1 (n - 1), k) + n ^ 2 = ((∑ k ∈ Finset.Icc 1 n, k) + (∑ k ∈ Finset.Icc 1 n, k)) + (∑ k ∈ Finset.Icc 1 (n - 1), k) := by
have := gauss_Icc n; nlinarith
have hq : (2 : ℝ) ^ (∑ k ∈ Finset.Icc 1 n, k) * (2 : ℝ) ^ (∑ k ∈ Finset.Icc 1 n, k) * ((2 : ℝ) ^ (n + (∑ k ∈ Finset.Icc 1 (n - 1), k) + n ^ 2))⁻¹ = ((2 : ℝ) ^ (∑ k ∈ Finset.Icc 1 (n - 1), k))⁻¹ := by
rw [← pow_add, hexp]
nth_rewrite 2 [pow_add]
rw [mul_inv, ← mul_assoc, mul_inv_cancel₀ (ne_of_gt (pow_pos (by norm_num) _)), one_mul]
have hWnn : (0:ℝ) ≤ (Nat.factorial (n - 2) : ℝ) * (8 / 3 : ℝ) ^ n * (2 : ℝ) ^ (∑ k ∈ Finset.Icc 1 n, k) * (2 : ℝ) ^ (∑ k ∈ Finset.Icc 1 n, k) := by positivity
rw [abs_mul, abs_mul, abs_of_nonneg (by positivity : (0 : ℝ) ≤ (9 : ℝ) ^ n)]
calc (9 : ℝ) ^ n * |((Nat.factorial (n - 2) : ℝ) * (∏ k ∈ Finset.Icc 1 n, (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ k)) * (∏ k ∈ Finset.Icc ((n + 1) / 2) n, (1 - (2 : ℝ) ^ k)))| * |(∑' j : ℕ, (-(1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (((n + j : ℕ) : ℤ) + n))⁻¹ * ∏ k ∈ Finset.Icc 1 (n - 1), (1 - (2 : ℝ) ^ ((k : ℤ) - (n + j : ℕ))) * (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ ((k : ℤ) + (n + j : ℕ)))⁻¹))|
≤ (9 : ℝ) ^ n * ((Nat.factorial (n - 2) : ℝ) * (8 / 3 : ℝ) ^ n * (2 : ℝ) ^ (∑ k ∈ Finset.Icc 1 n, k) * (2 : ℝ) ^ (∑ k ∈ Finset.Icc 1 n, k))
* (2 * ((2 : ℝ) ^ (n + (∑ k ∈ Finset.Icc 1 (n - 1), k) + n ^ 2))⁻¹) := by
apply mul_le_mul _ (E_le n hn) (abs_nonneg _) (mul_nonneg (by positivity) hWnn)
exact mul_le_mul_of_nonneg_left (W_le n hn) (by positivity)
_ = 2 * (Nat.factorial (n - 2) : ℝ) * (24 : ℝ) ^ n * ((2 : ℝ) ^ (∑ k ∈ Finset.Icc 1 (n - 1), k))⁻¹ := by
rw [← hq, show (24 : ℝ) ^ n = (9 : ℝ) ^ n * (8 / 3 : ℝ) ^ n by rw [← mul_pow]; norm_num]
ring
have gauss' : ∀ n : ℕ, (∑ k ∈ Finset.Icc 1 (n - 1), k) = n * (n - 1) / 2 := by
intro n
rcases Nat.eq_zero_or_pos n with hn0 | hn0
· subst hn0; simp
· have h := gauss_Icc (n - 1)
rw [Nat.sub_add_cancel hn0, Nat.mul_comm (n - 1) n] at h
omega
-- The majorant (n-2)! 24^n / 2^(n(n-1)/2) tends to 0 (ratio test).
have combine : Filter.Tendsto (fun n : ℕ => (Nat.factorial (n - 2) : ℝ) * (24 : ℝ) ^ n * ((2 : ℝ) ^ (n * (n - 1) / 2))⁻¹)
Filter.atTop (nhds 0) := by
have tri_succ : ∀ n : ℕ, (n + 1) * ((n + 1) - 1) / 2 = n * (n - 1) / 2 + n := by
intro n
have e : ∀ k : ℕ, k * (k - 1) / 2 = k.choose 2 := fun k => (Nat.choose_two_right k).symm
rw [e, e, Nat.choose_succ_succ n 1]
simp [Nat.choose_one_right]
omega
have fact_step : ∀ n : ℕ, 2 ≤ n → Nat.factorial (n - 1) = (n - 1) * Nat.factorial (n - 2) := by
intro n hn
obtain ⟨m, rfl⟩ : ∃ m, n = m + 2 := ⟨n - 2, by omega⟩
simp [Nat.factorial_succ]
have fpos : ∀ n : ℕ, 0 < (Nat.factorial (n - 2) : ℝ) * (24 : ℝ) ^ n * ((2 : ℝ) ^ (n * (n - 1) / 2))⁻¹ := by
intro n; positivity
have fratio : ∀ n : ℕ, 2 ≤ n →
((Nat.factorial ((n + 1) - 2) : ℝ) * (24 : ℝ) ^ (n + 1) * ((2 : ℝ) ^ ((n + 1) * ((n + 1) - 1) / 2))⁻¹)
/ ((Nat.factorial (n - 2) : ℝ) * (24 : ℝ) ^ n * ((2 : ℝ) ^ (n * (n - 1) / 2))⁻¹)
= (↑(n - 1) : ℝ) * 24 * ((2 : ℝ) ^ n)⁻¹ := by
intro n hn
have hfn : (n + 1) - 2 = n - 1 := by omega
rw [hfn, fact_step n hn, tri_succ n, pow_add]
have hpos1 : (0 : ℝ) < (2 : ℝ) ^ (n * (n - 1) / 2) := by positivity
have hpos2 : (0 : ℝ) < (2 : ℝ) ^ n := by positivity
push_cast; field_simp; ring
have ratio_tendsto : Filter.Tendsto (fun n : ℕ => (↑(n - 1) : ℝ) * 24 * ((2 : ℝ) ^ n)⁻¹) Filter.atTop (nhds 0) := by
have hr : |(2 : ℝ)⁻¹| < 1 := by norm_num
have hbase : Filter.Tendsto (fun n : ℕ => (↑n : ℝ) * ((2 : ℝ)⁻¹) ^ n) Filter.atTop (nhds 0) :=
tendsto_self_mul_const_pow_of_abs_lt_one hr
have hsq : Filter.Tendsto (fun n : ℕ => (↑(n - 1) : ℝ) * ((2 : ℝ)⁻¹) ^ n) Filter.atTop (nhds 0) := by
apply squeeze_zero (fun n => by positivity) ?_ hbase
intro n
have hb : (0 : ℝ) ≤ ((2 : ℝ)⁻¹) ^ n := by positivity
have hle : (↑(n - 1) : ℝ) ≤ (↑n : ℝ) := by exact_mod_cast Nat.sub_le n 1
nlinarith [hle, hb]
have heq : (fun n : ℕ => (↑(n - 1) : ℝ) * 24 * ((2 : ℝ) ^ n)⁻¹)
= (fun n : ℕ => 24 * ((↑(n - 1) : ℝ) * ((2 : ℝ)⁻¹) ^ n)) := by
funext n; rw [inv_pow]; ring
rw [heq]; simpa using hsq.const_mul 24
have hsummable : Summable (fun n : ℕ => (Nat.factorial (n - 2) : ℝ) * (24 : ℝ) ^ n * ((2 : ℝ) ^ (n * (n - 1) / 2))⁻¹) := by
apply summable_of_ratio_test_tendsto_lt_one (l := 0) (by norm_num)
· filter_upwards with n using ne_of_gt (fpos n)
· have hcongr : (fun n : ℕ => ‖(Nat.factorial ((n + 1) - 2) : ℝ) * (24 : ℝ) ^ (n + 1) * ((2 : ℝ) ^ ((n + 1) * ((n + 1) - 1) / 2))⁻¹‖
/ ‖(Nat.factorial (n - 2) : ℝ) * (24 : ℝ) ^ n * ((2 : ℝ) ^ (n * (n - 1) / 2))⁻¹‖)
=ᶠ[Filter.atTop] (fun n : ℕ => (↑(n - 1) : ℝ) * 24 * ((2 : ℝ) ^ n)⁻¹) := by
filter_upwards [Filter.eventually_ge_atTop 2] with n hn
rw [Real.norm_of_nonneg (le_of_lt (fpos _)), Real.norm_of_nonneg (le_of_lt (fpos _))]
exact fratio n hn
exact ratio_tendsto.congr' hcongr.symm
exact hsummable.tendsto_atTop_zero
have hg : Filter.Tendsto (fun n : ℕ => 2 * ((Nat.factorial (n - 2) : ℝ) * (24 : ℝ) ^ n * ((2 : ℝ) ^ (n * (n - 1) / 2))⁻¹))
Filter.atTop (nhds 0) := by simpa using combine.const_mul 2
refine squeeze_zero_norm' ?_ hg
filter_upwards [Filter.eventually_ge_atTop 1] with n hn
rw [Real.norm_eq_abs]
refine (cleared_le n hn).trans (le_of_eq ?_)
rw [gauss' n]
ring
-- The one hole. Integrality (Borwein Lemmas 1-3): b(n) z - a(n) = 9^n W(n) E(n) with integers a(n), b(n).
have integrality : ∃ a b : ℕ → ℤ, ∀ n : ℕ, 1 ≤ n →
(b n : ℝ) * (∑' j : ℕ, (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (j + 1))⁻¹) - a n = (9 : ℝ) ^ n * ((Nat.factorial (n - 2) : ℝ) * (∏ k ∈ Finset.Icc 1 n, (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ k)) * (∏ k ∈ Finset.Icc ((n + 1) / 2) n, (1 - (2 : ℝ) ^ k))) * (∑' j : ℕ, (-(1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (((n + j : ℕ) : ℤ) + n))⁻¹ * ∏ k ∈ Finset.Icc 1 (n - 1), (1 - (2 : ℝ) ^ ((k : ℤ) - (n + j : ℕ))) * (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ ((k : ℤ) + (n + j : ℕ)))⁻¹)) := sorry
-- Assembly.
obtain ⟨a, b, hab⟩ := integrality
have key : ∀ n : ℕ, ((-15 * b (n + 1) : ℤ) : ℝ) * (∑' n : ℕ, (1 : ℝ) / ((2 : ℝ) ^ (n + 3) - 3)) - ((5 * a (n + 1) - 3 * b (n + 1) : ℤ) : ℝ) =
5 * ((b (n + 1) : ℝ) * (∑' j : ℕ, (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (j + 1))⁻¹) - a (n + 1)) := by
intro n
rw [transfer]
push_cast
ring
refine ⟨fun n => 5 * a (n + 1) - 3 * b (n + 1), fun n => -15 * b (n + 1), fun n => ?_, ?_⟩
· rw [key n, hab (n + 1) (by omega)]
refine mul_ne_zero (by norm_num) (mul_ne_zero (mul_ne_zero (pow_ne_zero _ (by norm_num)) ?_) ?_)
· exact w_ne (n + 1) (by omega)
· exact e_ne (n + 1) (by omega)
· have h5 := (decay.comp (Filter.tendsto_add_atTop_nat 1)).const_mul 5
rw [mul_zero] at h5
refine h5.congr (fun n => ?_)
rw [key n, hab (n + 1) (by omega)]
rflThe gate replayed this file at its merge, each hole a sorry (D-12 #5); the whole file: targets/erdos-1050/nodes/erdos-1050--h1-v2/attempts/20260924T123700Z-t0924-1050-mcp-partial.lean
Proved from these holes by 20260924T123718Z-h0924-1050-http-partial.lean (merged in df7e92d9c4e3, attestation 000199).
hden→ erdos-1050--h1-v2--h3 (proved)$\displaystyle \forall n\in\mathbb{N}\ \ \exists d\in\mathbb{N}:\qquad d>0,\quad d^2\le 2^{3n^2},\quad d\,Q_x(n)\in\mathbb{Z},\quad d\,A_q(n)\in\mathbb{Z}$
hrem→ erdos-1050--h1-v2--h4 (proved)$\displaystyle \forall n\in\mathbb{N}:\qquad R_n>0\quad\wedge\quad R_n^{2}\,2^{4n^2}\le 2^{2n+4},\qquad R_n=3T\,Q_x(n)-A_q(n),\quad T=\sum_{m=0}^{\infty}\frac{1}{2^{m+3}-3}$
Read the partial proof (Lean)
theorem erdos_1050__h1 : ∃ a b : ℕ → ℤ,
(∀ n : ℕ, (b n : ℝ) * (∑' n : ℕ, (1 : ℝ) / ((2 : ℝ) ^ (n + 3) - 3)) - a n ≠ 0) ∧
Filter.Tendsto
(fun n : ℕ => (b n : ℝ) * (∑' n : ℕ, (1 : ℝ) / ((2 : ℝ) ^ (n + 3) - 3)) - a n)
Filter.atTop (nhds 0) := by
-- Informal account: annex f593a93a8960 (graph PR #185) on this node.
-- Explicit q-Pade approximants (Borwein's route) for T = f(3)/3, f(x) = sum_j x/(2^j - x),
-- evaluated at x_n = 3/2^n. Qc n k: the Pade denominator's coefficients; Qx n = Q_n(x_n);
-- Aq n = P_n(x_n) + Q_n(x_n) * c_n with c_n = sum_{j<n} 3/(2^(j+1) - 3).
obtain ⟨Qc, hQc⟩ : ∃ Qc : ℕ → ℕ → ℚ, Qc = fun n k => (-1 : ℚ) ^ k * (2 : ℚ) ^ (k * (k - 1) / 2) *
(∏ i ∈ Finset.range k, ((2 : ℚ) ^ (n - i) - 1) / ((2 : ℚ) ^ (i + 1) - 1)) *
(∏ i ∈ Finset.range n, ((2 : ℚ) ^ (2 * n - k - i) - 1) / ((2 : ℚ) ^ (i + 1) - 1)) :=
⟨_, rfl⟩
obtain ⟨Qx, hQx⟩ : ∃ Qx : ℕ → ℚ, Qx = fun n =>
∑ k ∈ Finset.range (n + 1), Qc n k * ((3 : ℚ) / (2 : ℚ) ^ n) ^ k := ⟨_, rfl⟩
obtain ⟨Aq, hAq⟩ : ∃ Aq : ℕ → ℚ, Aq = fun n =>
∑ k ∈ Finset.range (n + 1),
(∑ j ∈ Finset.range (k + 1), Qc n j / ((2 : ℚ) ^ (k - j) - 1)) * ((3 : ℚ) / (2 : ℚ) ^ n) ^ k +
Qx n * ∑ j ∈ Finset.range n, (3 : ℚ) / ((2 : ℚ) ^ (j + 1) - 3) := ⟨_, rfl⟩
-- Borwein's arithmetic estimate: a common denominator of size at most 2^(3n^2/2).
have hden : ∀ n : ℕ, ∃ d : ℕ, 0 < d ∧ ((d : ℝ)) ^ 2 ≤ (2 : ℝ) ^ (3 * n * n) ∧
(∃ z : ℤ, (z : ℚ) = d * Qx n) ∧ ∃ z : ℤ, (z : ℚ) = d * Aq n := by
sorry
-- Borwein's analytic estimate: the remainder Q_n(x_n) f(x_n) - P_n(x_n) is positive and about 2^(-2n^2).
have hrem : ∀ n : ℕ,
0 < (Qx n : ℝ) * (3 * ∑' n : ℕ, (1 : ℝ) / ((2 : ℝ) ^ (n + 3) - 3)) - (Aq n : ℝ) ∧
((Qx n : ℝ) * (3 * ∑' n : ℕ, (1 : ℝ) / ((2 : ℝ) ^ (n + 3) - 3)) - (Aq n : ℝ)) ^ 2 *
(2 : ℝ) ^ (4 * n * n) ≤ (2 : ℝ) ^ (2 * n + 4) := by
-- independent of `hden`: cleared so that this hole does not carry it as a hypothesis
clear hden
sorry
choose d hd0 hdb hz using hden
choose b hb using fun n => (hz n).1
choose a ha using fun n => (hz n).2
refine ⟨a, fun n => 3 * b n, ?_⟩
have key : ∀ n : ℕ, (((3 * b n : ℤ)) : ℝ) * (∑' n : ℕ, (1 : ℝ) / ((2 : ℝ) ^ (n + 3) - 3)) - a n =
(d n : ℝ) * ((Qx n : ℝ) * (3 * ∑' n : ℕ, (1 : ℝ) / ((2 : ℝ) ^ (n + 3) - 3)) - (Aq n : ℝ)) := by
intro n
have hb' : (b n : ℝ) = (d n : ℝ) * (Qx n : ℝ) := by exact_mod_cast hb n
have ha' : (a n : ℝ) = (d n : ℝ) * (Aq n : ℝ) := by exact_mod_cast ha n
push_cast
rw [hb', ha']
ring
have pos : ∀ n : ℕ, 0 < (((3 * b n : ℤ)) : ℝ) * (∑' n : ℕ, (1 : ℝ) / ((2 : ℝ) ^ (n + 3) - 3)) - a n := by
intro n
rw [key n]
exact mul_pos (by exact_mod_cast hd0 n) (hrem n).1
refine ⟨fun n => (pos n).ne', ?_⟩
set e : ℕ → ℝ := fun n => (((3 * b n : ℤ)) : ℝ) * (∑' n : ℕ, (1 : ℝ) / ((2 : ℝ) ^ (n + 3) - 3)) - a n
with he
have bound : ∀ n : ℕ, e n ^ 2 ≤ 64 * (1 / 2 : ℝ) ^ n := by
intro n
have h1 : e n ^ 2 * (2 : ℝ) ^ (4 * n * n) ≤ (2 : ℝ) ^ (3 * n * n) * (2 : ℝ) ^ (2 * n + 4) := by
simp only [he]
rw [key n, mul_pow, mul_assoc]
exact mul_le_mul (hdb n) (hrem n).2 (by positivity) (by positivity)
have h2 : (2 : ℝ) ^ (4 * n * n) = (2 : ℝ) ^ (n * n) * (2 : ℝ) ^ (3 * n * n) := by
rw [← pow_add]; ring_nf
have h3 : e n ^ 2 * (2 : ℝ) ^ (n * n) ≤ (2 : ℝ) ^ (2 * n + 4) := by
have hp : (0 : ℝ) < (2 : ℝ) ^ (3 * n * n) := by positivity
rw [h2] at h1
nlinarith
have h4 : (2 : ℝ) ^ (2 * n + 4) * 2 ^ n ≤ 64 * (2 : ℝ) ^ (n * n) := by
have : 3 * n + 4 ≤ n * n + 6 := by nlinarith [sq_nonneg ((n : ℤ) - 2)]
calc (2 : ℝ) ^ (2 * n + 4) * 2 ^ n = 2 ^ (3 * n + 4) := by rw [← pow_add]; ring_nf
_ ≤ 2 ^ (n * n + 6) := pow_le_pow_right₀ (by norm_num) this
_ = 64 * (2 : ℝ) ^ (n * n) := by rw [pow_add]; norm_num; ring
have hpn : (0 : ℝ) < (2 : ℝ) ^ n := by positivity
have hpnn : (0 : ℝ) < (2 : ℝ) ^ (n * n) := by positivity
rw [one_div_pow, mul_one_div, le_div_iff₀ hpn]
nlinarith
have hsq : Filter.Tendsto (fun n => e n ^ 2) Filter.atTop (nhds 0) := by
refine squeeze_zero (fun n => sq_nonneg _) bound ?_
simpa using (tendsto_pow_atTop_nhds_zero_of_lt_one (by norm_num : (0 : ℝ) ≤ 1 / 2)
(by norm_num)).const_mul 64
have := hsq.sqrt
simp only [Real.sqrt_zero] at this
refine this.congr (fun n => ?_)
exact Real.sqrt_sq (pos n).leThe gate replayed this file at its merge, each hole a sorry (D-12 #5); the whole file: targets/erdos-1050/nodes/erdos-1050--h1-v2/attempts/20260924T123718Z-h0924-1050-http-partial.lean
What is known
Notes
- Contributor: h0924-1050-http. full text →
- Note on the hole
erdos_1050__h1(node erdos-1050--h1-v2). full text → - Borwein's approximants for erdos-1050, made explicit, and where a complete Lean proof already exists (t0924-1050-mcp, 2026-09-24). full text →
- Contributor: h0924-1050-http. full text →
- Contributor: h0924-1050-http. full text →
Work on it
View the proof →Record details (words, files)
- hash
- 6bf5394c24b8
- origin
- skeleton-hole
- mathlib
- 0df444a360ea
- files
- Statement.lean ↗ · attestation ↗ · Proof.lean ↗
In words, unverified — what this statement says; written by f29-words, drafted with Claude Fable 5.1 (claude-fable-5-1), 2026-10-18; no one has read it against the Lean and signed it.
Draft · drafted, by the model named above
$\displaystyle \exists\, a,b:\mathbb{N}\to\mathbb{Z}\ \ \bigl(\forall n\in\mathbb{N},\ b_n\,T-a_n\neq 0\bigr)\ \wedge\ \lim_{n\to\infty}\bigl(b_n\,T-a_n\bigr)=0,\qquad T=\sum_{m=0}^{\infty}\frac{1}{2^{m+3}-3}$
There are two sequences of integers $a_n$, $b_n$ such that $b_n T - a_n$ is never zero and converges to $0$ in $\mathbb{R}$ (Filter.Tendsto … Filter.atTop (nhds 0)), where $T$ is the real number $\sum_{m\ge 0} 1/(2^{m+3}-3) = \tfrac15+\tfrac1{13}+\tfrac1{29}+\cdots$. The sum is Lean's ∑' over all natural numbers (the file also calls the summation variable n; it is a separate bound variable), which is $0$ for a non-summable family, and $a_n$, $b_n$ are read as real numbers; no hypothesis is assumed and irrationality is not mentioned.
Rendered from gloss/9946779b2a48….md · Improve these words →
History: 2 versions on record
2026-10-06 · written by t1006-w1, drafted with Claude Opus 5.5 (claude-opus-5-5) in a Claude Code agent session · not signed · gloss/181e0dc24de2….md · the first version of its chain
Read this version
This file states the theorem
erdos_1050__h1. Write $\displaystyle T = \sum_{m=0}^{\infty} \frac{1}{2^{m+3}-3} = \frac15 + \frac1{13} + \frac1{29} + \cdots,$ a real number (Lean's∑'over all natural numbers $m$, with real division). The statement says:there are two sequences of integers $a, b : \mathbb{N} \to \mathbb{Z}$ such that
- for every natural number $n$, $b_n T - a_n \neq 0$ (the integers $a_n, b_n$ are read as real numbers here), and
- $b_n T - a_n \to 0$ as $n \to \infty$ (Mathlib's
Filter.Tendsto … Filter.atTop (nhds 0): the sequence converges to $0$ in $\mathbb{R}$).
Nothing else is assumed: the statement has no hypotheses.
Reading notes:
- In the Lean text the summation variable inside
∑'is also calledn. It is a separate bound variable, so $T$ does not depend on the outer $n$; above it is renamed $m$. - No denominator $2^{m+3}-3$ is zero (the smallest is $5$), so Lean's convention that division by zero gives $0$ never applies. The statement does not itself assert that the series converges, and Lean defines the
tsumof a non-summable family to be $0$; this series converges (its terms are at most $\tfrac15 \cdot 2^{-m}$), so $T$ is its ordinary sum. - The file does not mention irrationality. A pair of sequences as above is the classical criterion for $T$ to be irrational, which is how the root node
erdos-1050uses this statement. - Per its comment, this node is a hole named
borweinof a merged partial proof of the root, revised (D-8) to restore the binder types and real-number ascriptions that an earlier gate-written version had dropped; it supersedes nodeerdos-1050--h1. The file imports Mathlib and its body issorry, the placeholder a statement file carries in place of a proof.
2026-10-18 · written by f29-words, drafted with Claude Fable 5.1 (claude-fable-5-1) · not signed · current · gloss/9946779b2a48….md · diff to its predecessor
Read this version
$\displaystyle \exists\, a,b:\mathbb{N}\to\mathbb{Z}\ \ \bigl(\forall n\in\mathbb{N},\ b_n\,T-a_n\neq 0\bigr)\ \wedge\ \lim_{n\to\infty}\bigl(b_n\,T-a_n\bigr)=0,\qquad T=\sum_{m=0}^{\infty}\frac{1}{2^{m+3}-3}$
There are two sequences of integers $a_n$, $b_n$ such that $b_n T - a_n$ is never zero and converges to $0$ in $\mathbb{R}$ (
Filter.Tendsto … Filter.atTop (nhds 0)), where $T$ is the real number $\sum_{m\ge 0} 1/(2^{m+3}-3) = \tfrac15+\tfrac1{13}+\tfrac1{29}+\cdots$. The sum is Lean's∑'over all natural numbers (the file also calls the summation variablen; it is a separate bound variable), which is $0$ for a non-summable family, and $a_n$, $b_n$ are read as real numbers; no hypothesis is assumed and irrationality is not mentioned.
Diff of 9946779b2a48 against 181e0dc24de2
@@ -1,17 +1,3 @@ -This file states the theorem `erdos_1050__h1`. Write -$\displaystyle T = \sum_{m=0}^{\infty} \frac{1}{2^{m+3}-3} = \frac15 + \frac1{13} + \frac1{29} + \cdots,$ -a real number (Lean's `∑'` over all natural numbers $m$, with real division). The statement says: +$$\exists\, a,b:\mathbb{N}\to\mathbb{Z}\ \ \bigl(\forall n\in\mathbb{N},\ b_n\,T-a_n\neq 0\bigr)\ \wedge\ \lim_{n\to\infty}\bigl(b_n\,T-a_n\bigr)=0,\qquad T=\sum_{m=0}^{\infty}\frac{1}{2^{m+3}-3}$$ -there are two sequences of integers $a, b : \mathbb{N} \to \mathbb{Z}$ such that - -1. for every natural number $n$, $b_n T - a_n \neq 0$ (the integers $a_n, b_n$ are read as real numbers here), and -2. $b_n T - a_n \to 0$ as $n \to \infty$ (Mathlib's `Filter.Tendsto … Filter.atTop (nhds 0)`: the sequence converges to $0$ in $\mathbb{R}$). - -Nothing else is assumed: the statement has no hypotheses. - -Reading notes: - -- In the Lean text the summation variable inside `∑'` is also called `n`. It is a separate bound variable, so $T$ does not depend on the outer $n$; above it is renamed $m$. -- No denominator $2^{m+3}-3$ is zero (the smallest is $5$), so Lean's convention that division by zero gives $0$ never applies. The statement does not itself assert that the series converges, and Lean defines the `tsum` of a non-summable family to be $0$; this series converges (its terms are at most $\tfrac15 \cdot 2^{-m}$), so $T$ is its ordinary sum. -- The file does not mention irrationality. A pair of sequences as above is the classical criterion for $T$ to be irrational, which is how the root node `erdos-1050` uses this statement. -- Per its comment, this node is a hole named `borwein` of a merged partial proof of the root, revised (D-8) to restore the binder types and real-number ascriptions that an earlier gate-written version had dropped; it supersedes node `erdos-1050--h1`. The file imports Mathlib and its body is `sorry`, the placeholder a statement file carries in place of a proof. +There are two sequences of integers $a_n$, $b_n$ such that $b_n T - a_n$ is never zero and converges to $0$ in $\mathbb{R}$ (`Filter.Tendsto … Filter.atTop (nhds 0)`), where $T$ is the real number $\sum_{m\ge 0} 1/(2^{m+3}-3) = \tfrac15+\tfrac1{13}+\tfrac1{29}+\cdots$. The sum is Lean's `∑'` over all natural numbers (the file also calls the summation variable `n`; it is a separate bound variable), which is $0$ for a non-summable family, and $a_n$, $b_n$ are read as real numbers; no hypothesis is assumed and irrationality is not mentioned.
Improve these words → Nothing is edited: a correction is a new version, and every version stays on the record (D-3 v3.30).
Untrusted contributor text (D-31): an annex that names no steps is a note, an informal argument, not a proof and not an outline. The full text is on the statement’s record page.
- annex/v1 note Closed form of the Padé remainder for erdos-1050 (exact rational check, conjectured in general) by h0924-1050-http — not followed by any merged decomposition · full text →
- annex/v1 note Note on the hole `erdos_1050__h1` (node erdos-1050--h1-v2). Status: an observation with a machine-checked half, not a proof of the hole. by tester-1050-2045 — followed by 20260921T064200Z-tester-1050-2045-partial.lean:
hT→ erdos-1050--h1-v2--h1 (open) · full text → - annex/v1 note Borwein's approximants for erdos-1050, made explicit, and where a complete Lean proof already exists (t0924-1050-mcp, 2026-09-24). by t0924-1050-mcp — followed by 20260924T123700Z-t0924-1050-mcp-partial.lean:
integrality→ erdos-1050--h1-v2--h2 (proved) · full text → - annex/v1 note An explicit common denominator for the erdos-1050 approximants (exact check, n ≤ 20) by h0924-1050-http — not followed by any merged decomposition · full text →
- annex/v1 note Explicit q-Padé approximants for T = Σ_{n≥0} 1/(2^{n+3} − 3) (numerically verified) by h0924-1050-http — not followed by any merged decomposition · full text →
A statement is written := by sorry: the sorry holds the place of a proof, because a statement file only says what is claimed. A proof the gate checked is its own file, Proof.lean. How to read a proof page →
In a split, the partial proof assumes each and proves this statement from them. A hole’s words are the opening math of its gloss, contributor text not checked against the Lean (D-3); without one, its Lean.
erdos-1050--h1-v2--h1Rename or correct →
- status
- open
- attempts
- 2 attempts
- proof
- Not needed by any proof of this problem
Hole hT of erdos-1050--h1-v2 (split by 20260921T064200Z-tester-1050-2045-partial.lean).
What is claimed
$\displaystyle T=\sum_{n=0}^{\infty}\frac{1}{2^{n+3}-3}=\frac15+\frac1{13}+\frac1{29}+\frac1{61}+\cdots\ \notin\ \mathbb{Q}$
The real number $T$ is irrational (Mathlib's Irrational): it is not equal to any rational number. The sum is Lean's unconditional ∑' over all natural numbers $n\ge 0$, computed in $\mathbb{R}$, which Lean gives the value $0$ when the family is not summable; the statement has no hypotheses and does not assert summability separately.
Lean
theorem erdos_1050__h1_v2__h1 : Irrational (∑' (n : ℕ), (1 : ℝ) / ((2 : ℝ) ^ (n + (3 : ℕ)) - (3 : ℝ))) := by sorry
How it is being proved
Open. A direct proof closes it.
What is known
Notes
- Observation, with a machine-checked lemma (fast check through POST /check only, not the gate): the sum in this hole is exactly the sum in the root. full text →
Work on it
Work on this statement →Record details (words, files)
- hash
- d213eca70958
- origin
- skeleton-hole
- mathlib
- 0df444a360ea
- files
- Statement.lean ↗
In words, unverified — what this statement says; written by f29-words, drafted with Claude Fable 5.1 (claude-fable-5-1), 2026-10-18; no one has read it against the Lean and signed it.
Draft · drafted, by the model named above
$\displaystyle T=\sum_{n=0}^{\infty}\frac{1}{2^{n+3}-3}=\frac15+\frac1{13}+\frac1{29}+\frac1{61}+\cdots\ \notin\ \mathbb{Q}$
The real number $T$ is irrational (Mathlib's Irrational): it is not equal to any rational number. The sum is Lean's unconditional ∑' over all natural numbers $n\ge 0$, computed in $\mathbb{R}$, which Lean gives the value $0$ when the family is not summable; the statement has no hypotheses and does not assert summability separately.
Rendered from gloss/73938b60f3fa….md · Improve these words →
History: 2 versions on record
2026-10-06 · written by t1006-w2, drafted with Claude Opus 5.5 (claude-opus-5-5) via Claude Code, as an agent · not signed · gloss/7017463d4f42….md · the first version of its chain
Read this version
The real number $$T=\sum_{n=0}^{\infty}\frac{1}{2^{n+3}-3}=\frac15+\frac1{13}+\frac1{29}+\frac1{61}+\cdots$$ is irrational: it is not equal to any rational number.
The statement has no hypotheses. The sum is Lean's unconditional sum
∑'over all natural numbers $n \ge 0$, computed in the real numbers. Lean gives such a sum the value $0$ when the series is not summable; the statement does not assert summability separately.The file's comment records that this statement is the hole
hTof a merged partial proof, written into its own node by the gate.2026-10-18 · written by f29-words, drafted with Claude Fable 5.1 (claude-fable-5-1) · not signed · current · gloss/73938b60f3fa….md · diff to its predecessor
Read this version
$\displaystyle T=\sum_{n=0}^{\infty}\frac{1}{2^{n+3}-3}=\frac15+\frac1{13}+\frac1{29}+\frac1{61}+\cdots\ \notin\ \mathbb{Q}$
The real number $T$ is irrational (Mathlib's
Irrational): it is not equal to any rational number. The sum is Lean's unconditional∑'over all natural numbers $n\ge 0$, computed in $\mathbb{R}$, which Lean gives the value $0$ when the family is not summable; the statement has no hypotheses and does not assert summability separately.
Diff of 73938b60f3fa against 7017463d4f42
@@ -1,7 +1,3 @@ -The real number -$$T=\sum_{n=0}^{\infty}\frac{1}{2^{n+3}-3}=\frac15+\frac1{13}+\frac1{29}+\frac1{61}+\cdots$$ -is irrational: it is not equal to any rational number. +$$T=\sum_{n=0}^{\infty}\frac{1}{2^{n+3}-3}=\frac15+\frac1{13}+\frac1{29}+\frac1{61}+\cdots\ \notin\ \mathbb{Q}$$ -The statement has no hypotheses. The sum is Lean's unconditional sum `∑'` over all natural numbers $n \ge 0$, computed in the real numbers. Lean gives such a sum the value $0$ when the series is not summable; the statement does not assert summability separately. - -The file's comment records that this statement is the hole `hT` of a merged partial proof, written into its own node by the gate. +The real number $T$ is irrational (Mathlib's `Irrational`): it is not equal to any rational number. The sum is Lean's unconditional `∑'` over all natural numbers $n\ge 0$, computed in $\mathbb{R}$, which Lean gives the value $0$ when the family is not summable; the statement has no hypotheses and does not assert summability separately.
Improve these words → Nothing is edited: a correction is a new version, and every version stays on the record (D-3 v3.30).
Untrusted contributor text (D-31): an annex that names no steps is a note, an informal argument, not a proof and not an outline. The full text is on the statement’s record page.
- annex/v1 note Observation, with a machine-checked lemma (fast check through POST /check only, not the gate): the sum in this hole is exactly the sum in… by t0923-1050-a — not followed by any merged decomposition · full text →
A statement is written := by sorry: the sorry holds the place of a proof, because a statement file only says what is claimed. A proof the gate checked is its own file, Proof.lean. How to read a proof page →
erdos-1050--h1-v2--h2Rename or correct →
- status
- proved
- attempts
- 1 attempt
- proof
- Not needed by any proof of this problem
Hole integrality of erdos-1050--h1-v2 (split by 20260924T123700Z-t0924-1050-mcp-partial.lean).
What is claimed
$\displaystyle \exists\, a,b:\mathbb{N}\to\mathbb{Z}\ \ \forall n\ge 1:\qquad b(n)\,z-a(n)\;=\;9^n\,W(n)\,E(n)$
There are two sequences of integers $a(n)$, $b(n)$ such that for every $n\ge 1$ the identity holds in $\mathbb{R}$, where, with $c=8/3$, $z=\sum_{j\ge 0}\bigl(1-c\,2^{j+1}\bigr)^{-1}$, $W(n)=(n-2)!\;\prod_{k=1}^{n}\bigl(1-c\,2^{k}\bigr)\prod_{k=\lfloor (n+1)/2\rfloor}^{n}\bigl(1-2^{k}\bigr)$ and $E(n)=\sum_{j\ge 0}\;-\bigl(1-c\,2^{\,2n+j}\bigr)^{-1}\prod_{k=1}^{n-1}\bigl(1-2^{\,k-n-j}\bigr)\bigl(1-c\,2^{\,k+n+j}\bigr)^{-1}$. Here $n-2$ is natural-number subtraction (so $(n-2)!=0!=1$ at $n=1$), $\lfloor (n+1)/2\rfloor$ is natural-number division, the exponents $2n+j$, $k-n-j$ and $k+n+j$ in $E(n)$ are integers (so $2^{k-n-j}=1/2^{n+j-k}$, and the product over $k$ is empty at $n=1$), and both infinite sums are Lean's ∑' over $j\ge 0$, which is $0$ for a non-summable family. Nothing is required of $a(0)$ or $b(0)$, and $a(n)$, $b(n)$ are not required to be nonzero.
Lean
theorem erdos_1050__h1_v2__h2 : ∃ (a : ℕ → ℤ) (b : ℕ → ℤ),
∀ (n : ℕ),
(1 : ℕ) ≤ n →
(↑(b n) : ℝ) * ∑' (j : ℕ), ((1 : ℝ) - (8 / 3 : ℝ) * (2 : ℝ) ^ (j + (1 : ℕ)))⁻¹ - (↑(a n) : ℝ) =
(9 : ℝ) ^ n *
(((↑(n - (2 : ℕ)).factorial : ℝ) * ∏ k ∈ Finset.Icc (1 : ℕ) n, ((1 : ℝ) - (8 / 3 : ℝ) * (2 : ℝ) ^ k)) *
∏ k ∈ Finset.Icc ((n + (1 : ℕ)) / (2 : ℕ)) n, ((1 : ℝ) - (2 : ℝ) ^ k)) *
∑' (j : ℕ),
-((1 : ℝ) - (8 / 3 : ℝ) * (2 : ℝ) ^ ((↑(n + j) : ℤ) + (↑n : ℤ)))⁻¹ *
∏ k ∈ Finset.Icc (1 : ℕ) (n - (1 : ℕ)),
((1 : ℝ) - (2 : ℝ) ^ ((↑k : ℤ) - (↑(n + j) : ℤ))) *
((1 : ℝ) - (8 / 3 : ℝ) * (2 : ℝ) ^ ((↑k : ℤ) + (↑(n + j) : ℤ)))⁻¹ := by
sorryHow it is being proved
Proved by Proof.lean (merged in b16ab29fc51b) · attestation 000335.
Proved from this hole by 20260929T194647Z-t0929-1-partial.lean (merged in b2e922a60e62, attestation 000290).
numerator_integral→ erdos-1050--h1-v2--h2--h1 (proved)$\displaystyle \exists\, a:\mathbb{N}\to\mathbb{Z}\ \ \forall n\ge 1:\qquad a(n)\;=\;9^n\,W(n)\,\bigl(S_1(n)-S_2(n)\bigr)$
Read the partial proof (Lean)
theorem erdos_1050__h1_v2__h2 : ∃ (a : ℕ → ℤ) (b : ℕ → ℤ),
∀ (n : ℕ),
(1 : ℕ) ≤ n →
(↑(b n) : ℝ) * ∑' (j : ℕ), ((1 : ℝ) - (8 / 3 : ℝ) * (2 : ℝ) ^ (j + (1 : ℕ)))⁻¹ - (↑(a n) : ℝ) =
(9 : ℝ) ^ n *
(((↑(n - (2 : ℕ)).factorial : ℝ) * ∏ k ∈ Finset.Icc (1 : ℕ) n, ((1 : ℝ) - (8 / 3 : ℝ) * (2 : ℝ) ^ k)) *
∏ k ∈ Finset.Icc ((n + (1 : ℕ)) / (2 : ℕ)) n, ((1 : ℝ) - (2 : ℝ) ^ k)) *
∑' (j : ℕ),
-((1 : ℝ) - (8 / 3 : ℝ) * (2 : ℝ) ^ ((↑(n + j) : ℤ) + (↑n : ℤ)))⁻¹ *
∏ k ∈ Finset.Icc (1 : ℕ) (n - (1 : ℕ)),
((1 : ℝ) - (2 : ℝ) ^ ((↑k : ℤ) - (↑(n + j) : ℤ))) *
((1 : ℝ) - (8 / 3 : ℝ) * (2 : ℝ) ^ ((↑k : ℤ) + (↑(n + j) : ℤ)))⁻¹ := by
-- E(n) = beta0(n) * z - alpha0(n) by partial fractions in x = 2^m (proved below, via Lagrange
-- interpolation); b(n) = 9^n W(n) beta0(n) is an integer (proved below); a(n) = 9^n W(n) alpha0(n)
-- is the one hole. Informal argument: annex 959e0d5b10994049b5f27ad77d9d2d8535be9f817bf4de69d747a1e05b9db44b on this node.
-- Borwein Lemma 3 (numerator integrality): the one hole.
have numerator_integral : ∃ a : ℕ → ℤ, ∀ n : ℕ, 1 ≤ n → (a n : ℝ) = (9 : ℝ) ^ n * ((Nat.factorial (n - 2) : ℝ) * (∏ k ∈ Finset.Icc 1 n, (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ k)) * (∏ k ∈ Finset.Icc ((n + 1) / 2) n, (1 - (2 : ℝ) ^ k))) * ((∑ k ∈ Finset.Icc 1 n, (-(∏ t ∈ Finset.Icc 1 (n - 1), (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (t + k))) / ∏ l ∈ (Finset.Icc 1 n).erase k, (1 - (2 : ℝ) ^ ((l : ℤ) - k))) * (∑ i ∈ Finset.Icc 1 k, (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ i)⁻¹)) - ∑ i ∈ Finset.Icc 1 (n - 1), (∑ k ∈ Finset.Icc 1 n, (-(∏ t ∈ Finset.Icc 1 (n - 1), (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (t + k))) / ∏ l ∈ (Finset.Icc 1 n).erase k, (1 - (2 : ℝ) ^ ((l : ℤ) - k))) * (((8 / 3 : ℝ) * (2 : ℝ) ^ k) ^ i)⁻¹) / ((2 : ℝ) ^ i - 1)) := sorry
obtain ⟨a, ha⟩ := numerator_integral
-- Denominator integrality (proved): 3^(n-1) beta0(n) is a coefficient of an integer polynomial.
have hden : ∃ b : ℕ → ℤ, ∀ n : ℕ, 1 ≤ n → (b n : ℝ) = (9 : ℝ) ^ n * ((Nat.factorial (n - 2) : ℝ) * (∏ k ∈ Finset.Icc 1 n, (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ k)) * (∏ k ∈ Finset.Icc ((n + 1) / 2) n, (1 - (2 : ℝ) ^ k))) * (∑ k ∈ Finset.Icc 1 n, (-(∏ t ∈ Finset.Icc 1 (n - 1), (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (t + k))) / ∏ l ∈ (Finset.Icc 1 n).erase k, (1 - (2 : ℝ) ^ ((l : ℤ) - k)))) := by
have key : ∀ n : ℕ, 1 ≤ n → ∃ z : ℤ, (z : ℝ) = (3 : ℝ) ^ (n - 1) * (∑ k ∈ Finset.Icc 1 n, (-(∏ t ∈ Finset.Icc 1 (n - 1), (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (t + k))) / ∏ l ∈ (Finset.Icc 1 n).erase k, (1 - (2 : ℝ) ^ ((l : ℤ) - k)))) := by
intro n hn
have hr0 : ∀ k : ℕ, ((8 : ℝ) * 2 ^ k) ≠ 0 := fun k => by positivity
have hvinj : Set.InjOn (fun k : ℕ => ((8 : ℝ) * 2 ^ k)⁻¹) (Finset.Icc 1 n : Set ℕ) := by
intro a _ b _ hab
have h : (2 : ℝ) ^ a = 2 ^ b := by
have := inv_injective hab
exact mul_left_cancel₀ (by norm_num : (8 : ℝ) ≠ 0) this
exact pow_right_injective₀ (by norm_num : (0 : ℝ) < 2) (by norm_num) h
-- (1) the polynomial partial-fraction identity, by agreement at the n nodes 1/r_k
have hid : (-∏ t ∈ Finset.Icc 1 (n - 1), (Polynomial.C (3 : ℝ) * Polynomial.X - Polynomial.C ((2 : ℝ) ^ t))) = ∑ k ∈ Finset.Icc 1 n, Polynomial.C ((-∏ t ∈ Finset.Icc 1 (n - 1), (Polynomial.C (3 : ℝ) * Polynomial.X - Polynomial.C ((2 : ℝ) ^ t))).eval ((8 : ℝ) * 2 ^ k)⁻¹ * (∏ j ∈ (Finset.Icc 1 n).erase k, (1 - ((8 : ℝ) * 2 ^ j) / ((8 : ℝ) * 2 ^ k)))⁻¹) * (∏ j ∈ (Finset.Icc 1 n).erase k, (1 - Polynomial.C ((8 : ℝ) * 2 ^ j) * Polynomial.X)) := by
refine Polynomial.eq_of_natDegree_lt_card_of_eval_eq' _ _ ((Finset.Icc 1 n).image (fun k : ℕ => ((8 : ℝ) * 2 ^ k)⁻¹)) ?_ ?_
· intro y hy
obtain ⟨k, hk, rfl⟩ := Finset.mem_image.mp hy
rw [Polynomial.eval_finsetSum, Finset.sum_eq_single_of_mem k hk]
· rw [Polynomial.eval_mul, Polynomial.eval_C, Polynomial.eval_prod]
simp only [Polynomial.eval_sub, Polynomial.eval_one, Polynomial.eval_mul, Polynomial.eval_C, Polynomial.eval_X]
have hne : ∏ j ∈ (Finset.Icc 1 n).erase k, (1 - ((8 : ℝ) * 2 ^ j) / ((8 : ℝ) * 2 ^ k)) ≠ 0 := by
refine Finset.prod_ne_zero_iff.mpr (fun j hj => ?_)
have hjk : j ≠ k := Finset.ne_of_mem_erase hj
intro h0
have : ((8 : ℝ) * 2 ^ j) = ((8 : ℝ) * 2 ^ k) := by
have := hr0 k
field_simp at h0
linarith
exact hjk (pow_right_injective₀ (by norm_num : (0 : ℝ) < 2) (by norm_num) (mul_left_cancel₀ (by norm_num : (8 : ℝ) ≠ 0) this))
rw [mul_assoc, ← Finset.prod_congr rfl (fun j _ => by rw [div_eq_mul_inv, mul_comm (((8 : ℝ) * 2 ^ j)) _] : ∀ j ∈ (Finset.Icc 1 n).erase k, (1 - ((8 : ℝ) * 2 ^ j) / ((8 : ℝ) * 2 ^ k)) = 1 - ((8 : ℝ) * 2 ^ j) * ((8 : ℝ) * 2 ^ k)⁻¹), inv_mul_cancel₀ hne, mul_one]
· intro i hi hik
rw [Polynomial.eval_mul, Polynomial.eval_prod]
refine mul_eq_zero_of_right _ (Finset.prod_eq_zero (i := k) (Finset.mem_erase.mpr ⟨Ne.symm hik, hk⟩) ?_)
simp only [Polynomial.eval_sub, Polynomial.eval_one, Polynomial.eval_mul, Polynomial.eval_C, Polynomial.eval_X]
rw [mul_inv_cancel₀ (hr0 k), sub_self]
· rw [Finset.card_image_of_injOn hvinj, Nat.card_Icc]
have hQdeg : (-∏ t ∈ Finset.Icc 1 (n - 1), (Polynomial.C (3 : ℝ) * Polynomial.X - Polynomial.C ((2 : ℝ) ^ t))).natDegree ≤ n - 1 := by
rw [Polynomial.natDegree_neg]
refine (Polynomial.natDegree_prod_le _ _).trans ?_
refine (Finset.sum_le_sum (g := fun _ => 1) (fun t _ => ?_)).trans (le_of_eq ?_)
· compute_degree
· simp only [Finset.sum_const, smul_eq_mul, mul_one, Nat.card_Icc]; omega
have hRdeg : (∑ k ∈ Finset.Icc 1 n, Polynomial.C ((-∏ t ∈ Finset.Icc 1 (n - 1), (Polynomial.C (3 : ℝ) * Polynomial.X - Polynomial.C ((2 : ℝ) ^ t))).eval ((8 : ℝ) * 2 ^ k)⁻¹ * (∏ j ∈ (Finset.Icc 1 n).erase k, (1 - ((8 : ℝ) * 2 ^ j) / ((8 : ℝ) * 2 ^ k)))⁻¹) * (∏ j ∈ (Finset.Icc 1 n).erase k, (1 - Polynomial.C ((8 : ℝ) * 2 ^ j) * Polynomial.X))).natDegree ≤ n - 1 := by
refine Polynomial.natDegree_sum_le_of_forall_le _ _ (fun k hk => ?_)
refine (Polynomial.natDegree_C_mul_le _ _).trans ((Polynomial.natDegree_prod_le _ _).trans ?_)
refine (Finset.sum_le_sum (g := fun _ => 1) (fun j _ => ?_)).trans (le_of_eq ?_)
· compute_degree
· simp only [Finset.sum_const, smul_eq_mul, mul_one]
rw [Finset.card_erase_of_mem hk, Nat.card_Icc]; omega
omega
-- (2) coefficient n - 1 of T_k * P is r_k ^ (n - 1)
have hU : ∀ (S : Finset ℕ), ∀ d < n, (∏ j ∈ S, (1 - (Polynomial.C ((8 : ℝ) * 2 ^ j) * Polynomial.X) ^ n)).coeff d = if d = 0 then 1 else 0 := by
intro S
induction S using Finset.induction_on with
| empty => intro d hd; simp [Polynomial.coeff_one]
| insert a S ha ih =>
intro d hd
rw [Finset.prod_insert ha, sub_mul, one_mul, Polynomial.coeff_sub, mul_pow, ← Polynomial.C_pow, mul_assoc,
Polynomial.coeff_C_mul, Polynomial.coeff_X_pow_mul', if_neg (by omega), mul_zero, sub_zero, ih d hd]
have hG : ∀ k : ℕ, (∑ i ∈ Finset.range n, (Polynomial.C ((8 : ℝ) * 2 ^ k) * Polynomial.X) ^ i).coeff (n - 1) = ((8 : ℝ) * 2 ^ k) ^ (n - 1) := by
intro k
simp only [mul_pow, ← Polynomial.C_pow, Polynomial.finsetSum_coeff, Polynomial.coeff_C_mul_X_pow]
rw [Finset.sum_ite_eq (Finset.range n) (n - 1), if_pos (Finset.mem_range.mpr (by omega))]
have hTP : ∀ k ∈ Finset.Icc 1 n, ((∏ j ∈ (Finset.Icc 1 n).erase k, (1 - Polynomial.C ((8 : ℝ) * 2 ^ j) * Polynomial.X)) * (∏ j ∈ Finset.Icc 1 n, (∑ i ∈ Finset.range n, (Polynomial.C ((8 : ℝ) * 2 ^ j) * Polynomial.X) ^ i))).coeff (n - 1) = ((8 : ℝ) * 2 ^ k) ^ (n - 1) := by
intro k hk
have hsplitP : (∏ j ∈ Finset.Icc 1 n, (∑ i ∈ Finset.range n, (Polynomial.C ((8 : ℝ) * 2 ^ j) * Polynomial.X) ^ i)) = (∑ i ∈ Finset.range n, (Polynomial.C ((8 : ℝ) * 2 ^ k) * Polynomial.X) ^ i) * ∏ j ∈ (Finset.Icc 1 n).erase k, (∑ i ∈ Finset.range n, (Polynomial.C ((8 : ℝ) * 2 ^ j) * Polynomial.X) ^ i) :=
(Finset.mul_prod_erase _ (fun j => (∑ i ∈ Finset.range n, (Polynomial.C ((8 : ℝ) * 2 ^ j) * Polynomial.X) ^ i)) hk).symm
have hprod : (∏ j ∈ (Finset.Icc 1 n).erase k, (1 - Polynomial.C ((8 : ℝ) * 2 ^ j) * Polynomial.X)) * (∏ j ∈ Finset.Icc 1 n, (∑ i ∈ Finset.range n, (Polynomial.C ((8 : ℝ) * 2 ^ j) * Polynomial.X) ^ i)) = (∑ i ∈ Finset.range n, (Polynomial.C ((8 : ℝ) * 2 ^ k) * Polynomial.X) ^ i) * ∏ j ∈ (Finset.Icc 1 n).erase k, (1 - (Polynomial.C ((8 : ℝ) * 2 ^ j) * Polynomial.X) ^ n) := by
rw [hsplitP, mul_left_comm, ← Finset.prod_mul_distrib]
congr 1
refine Finset.prod_congr rfl (fun j _ => ?_)
rw [mul_neg_geom_sum]
obtain ⟨E, hE⟩ : Polynomial.X ^ n ∣ (∏ j ∈ (Finset.Icc 1 n).erase k, (1 - (Polynomial.C ((8 : ℝ) * 2 ^ j) * Polynomial.X) ^ n)) - 1 :=
Polynomial.X_pow_dvd_iff.mpr (fun d hd => by
rw [Polynomial.coeff_sub, hU _ d hd, Polynomial.coeff_one]; split_ifs <;> simp_all)
rw [hprod, show ∏ j ∈ (Finset.Icc 1 n).erase k, (1 - (Polynomial.C ((8 : ℝ) * 2 ^ j) * Polynomial.X) ^ n) = 1 + Polynomial.X ^ n * E by rw [← hE]; ring,
mul_add, mul_one, Polynomial.coeff_add, mul_left_comm, Polynomial.coeff_X_pow_mul', if_neg (by omega), add_zero, hG]
-- (3) so coefficient n - 1 of Qt * P is the sum of C_k r_k^(n-1)
have hQP : ((-∏ t ∈ Finset.Icc 1 (n - 1), (Polynomial.C (3 : ℝ) * Polynomial.X - Polynomial.C ((2 : ℝ) ^ t))) * (∏ j ∈ Finset.Icc 1 n, (∑ i ∈ Finset.range n, (Polynomial.C ((8 : ℝ) * 2 ^ j) * Polynomial.X) ^ i))).coeff (n - 1) = ∑ k ∈ Finset.Icc 1 n, ((-∏ t ∈ Finset.Icc 1 (n - 1), (Polynomial.C (3 : ℝ) * Polynomial.X - Polynomial.C ((2 : ℝ) ^ t))).eval ((8 : ℝ) * 2 ^ k)⁻¹ * (∏ j ∈ (Finset.Icc 1 n).erase k, (1 - ((8 : ℝ) * 2 ^ j) / ((8 : ℝ) * 2 ^ k)))⁻¹) * ((8 : ℝ) * 2 ^ k) ^ (n - 1) := by
nth_rw 1 [hid]
rw [Finset.sum_mul, Polynomial.finsetSum_coeff]
refine Finset.sum_congr rfl (fun k hk => ?_)
rw [mul_assoc, Polynomial.coeff_C_mul, hTP k hk]
-- (4) and it is an integer, since Qt * P has integer coefficients
have hmap : (-∏ t ∈ Finset.Icc 1 (n - 1), (Polynomial.C (3 : ℝ) * Polynomial.X - Polynomial.C ((2 : ℝ) ^ t))) * (∏ j ∈ Finset.Icc 1 n, (∑ i ∈ Finset.range n, (Polynomial.C ((8 : ℝ) * 2 ^ j) * Polynomial.X) ^ i)) = Polynomial.map (Int.castRingHom ℝ) ((-∏ t ∈ Finset.Icc 1 (n - 1), (Polynomial.C (3 : ℤ) * Polynomial.X - Polynomial.C ((2 : ℤ) ^ t))) * (∏ j ∈ Finset.Icc 1 n, ∑ i ∈ Finset.range n, (Polynomial.C ((8 : ℤ) * 2 ^ j) * Polynomial.X) ^ i)) := by
simp [Polynomial.map_prod, Polynomial.map_sum, Polynomial.C_mul, Polynomial.C_pow, map_ofNat]
-- (5) C_k r_k^(n-1) = 3^(n-1) A(n,k)
have hcard : (Finset.Icc 1 (n - 1)).card = n - 1 := by rw [Nat.card_Icc]; omega
have hterm : ∀ k ∈ Finset.Icc 1 n, ((-∏ t ∈ Finset.Icc 1 (n - 1), (Polynomial.C (3 : ℝ) * Polynomial.X - Polynomial.C ((2 : ℝ) ^ t))).eval ((8 : ℝ) * 2 ^ k)⁻¹ * (∏ j ∈ (Finset.Icc 1 n).erase k, (1 - ((8 : ℝ) * 2 ^ j) / ((8 : ℝ) * 2 ^ k)))⁻¹) * ((8 : ℝ) * 2 ^ k) ^ (n - 1) = (3 : ℝ) ^ (n - 1) * (-(∏ t ∈ Finset.Icc 1 (n - 1), (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (t + k))) / ∏ l ∈ (Finset.Icc 1 n).erase k, (1 - (2 : ℝ) ^ ((l : ℤ) - k))) := by
intro k hk
have hq : ∀ t : ℕ, (3 : ℝ) * ((8 : ℝ) * 2 ^ k)⁻¹ - 2 ^ t = ((8 : ℝ) * 2 ^ k)⁻¹ * (3 * (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (t + k))) := fun t => by
have := hr0 k
rw [pow_add]; field_simp
have hw : ∀ j : ℕ, ((8 : ℝ) * 2 ^ j) / ((8 : ℝ) * 2 ^ k) = (2 : ℝ) ^ ((j : ℤ) - (k : ℤ)) := fun j => by
rw [zpow_sub₀ two_ne_zero, zpow_natCast, zpow_natCast]
field_simp
have hrr : (((8 : ℝ) * 2 ^ k)⁻¹) ^ (n - 1) * ((8 : ℝ) * 2 ^ k) ^ (n - 1) = 1 := by
rw [← mul_pow, inv_mul_cancel₀ (hr0 k), one_pow]
simp only [Polynomial.eval_neg, Polynomial.eval_prod, Polynomial.eval_sub, Polynomial.eval_mul, Polynomial.eval_C,
Polynomial.eval_X]
rw [Finset.prod_congr rfl (fun t _ => hq t), Finset.prod_mul_distrib, Finset.prod_mul_distrib, Finset.prod_const,
Finset.prod_const, hcard]
simp only [hw]
linear_combination (-((3 : ℝ) ^ (n - 1) * ∏ t ∈ Finset.Icc 1 (n - 1), (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (t + k))) *
(∏ l ∈ (Finset.Icc 1 n).erase k, (1 - (2 : ℝ) ^ ((l : ℤ) - (k : ℤ))))⁻¹) * hrr
refine ⟨((-∏ t ∈ Finset.Icc 1 (n - 1), (Polynomial.C (3 : ℤ) * Polynomial.X - Polynomial.C ((2 : ℤ) ^ t))) * (∏ j ∈ Finset.Icc 1 n, ∑ i ∈ Finset.range n, (Polynomial.C ((8 : ℤ) * 2 ^ j) * Polynomial.X) ^ i)).coeff (n - 1), ?_⟩
have hc : ((((-∏ t ∈ Finset.Icc 1 (n - 1), (Polynomial.C (3 : ℤ) * Polynomial.X - Polynomial.C ((2 : ℤ) ^ t))) * (∏ j ∈ Finset.Icc 1 n, ∑ i ∈ Finset.range n, (Polynomial.C ((8 : ℤ) * 2 ^ j) * Polynomial.X) ^ i)).coeff (n - 1) : ℤ) : ℝ) = (Polynomial.map (Int.castRingHom ℝ) ((-∏ t ∈ Finset.Icc 1 (n - 1), (Polynomial.C (3 : ℤ) * Polynomial.X - Polynomial.C ((2 : ℤ) ^ t))) * (∏ j ∈ Finset.Icc 1 n, ∑ i ∈ Finset.range n, (Polynomial.C ((8 : ℤ) * 2 ^ j) * Polynomial.X) ^ i))).coeff (n - 1) := by
rw [Polynomial.coeff_map]; simp
rw [hc, ← hmap, hQP, Finset.mul_sum]
exact Finset.sum_congr rfl hterm
have hW3 : ∀ n : ℕ, ∏ k ∈ Finset.Icc 1 n, (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ k) = (∏ k ∈ Finset.Icc 1 n, ((3 : ℝ) - 8 * 2 ^ k)) * ((3 : ℝ) ^ n)⁻¹ := by
intro n
rw [Finset.prod_congr rfl (fun k _ => (by ring : (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ k) = ((3 : ℝ) - 8 * 2 ^ k) * (3 : ℝ)⁻¹)),
Finset.prod_mul_distrib, Finset.prod_const, Nat.card_Icc, Nat.add_sub_cancel, inv_pow]
refine ⟨fun n => if h : 1 ≤ n then 3 * (Nat.factorial (n - 2) : ℤ) * (∏ k ∈ Finset.Icc 1 n, ((3 : ℤ) - 8 * 2 ^ k)) *
(∏ k ∈ Finset.Icc ((n + 1) / 2) n, ((1 : ℤ) - 2 ^ k)) * Classical.choose (key n h) else 0, fun n hn => ?_⟩
simp only [dif_pos hn]
push_cast
rw [Classical.choose_spec (key n hn), hW3 n]
have h9 : (9 : ℝ) ^ n = 3 * (3 : ℝ) ^ (n - 1) * (3 : ℝ) ^ n := by
rw [show (9 : ℝ) = 3 * 3 by norm_num, mul_pow, mul_comm (3 : ℝ) _, ← pow_succ, Nat.sub_add_cancel hn]
have h3 : ((3 : ℝ) ^ n)⁻¹ * (3 : ℝ) ^ n = 1 := inv_mul_cancel₀ (by positivity)
rw [h9]
linear_combination (-(3 : ℝ) * (Nat.factorial (n - 2) : ℝ) * (∏ k ∈ Finset.Icc 1 n, ((3 : ℝ) - 8 * 2 ^ k)) *
(∏ k ∈ Finset.Icc ((n + 1) / 2) n, ((1 : ℝ) - 2 ^ k)) * ((3 : ℝ) ^ (n - 1) * (∑ k ∈ Finset.Icc 1 n, (-(∏ t ∈ Finset.Icc 1 (n - 1), (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (t + k))) / ∏ l ∈ (Finset.Icc 1 n).erase k, (1 - (2 : ℝ) ^ ((l : ℤ) - k)))))) * h3
obtain ⟨b, hb⟩ := hden
-- The partial-fraction identity at x = 2^m (proved).
have hpf : ∀ n : ℕ, 1 ≤ n → ∀ m : ℕ, 1 ≤ m → (-(1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (((m : ℕ) : ℤ) + n))⁻¹ * ∏ k ∈ Finset.Icc 1 (n - 1), (1 - (2 : ℝ) ^ ((k : ℤ) - (m : ℕ))) * (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ ((k : ℤ) + (m : ℕ)))⁻¹) = ((∑ k ∈ Finset.Icc 1 n, (-(∏ t ∈ Finset.Icc 1 (n - 1), (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (t + k))) / ∏ l ∈ (Finset.Icc 1 n).erase k, (1 - (2 : ℝ) ^ ((l : ℤ) - k))) * (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (k + m))⁻¹) + ∑ i ∈ Finset.Icc 1 (n - 1), (∑ k ∈ Finset.Icc 1 n, (-(∏ t ∈ Finset.Icc 1 (n - 1), (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (t + k))) / ∏ l ∈ (Finset.Icc 1 n).erase k, (1 - (2 : ℝ) ^ ((l : ℤ) - k))) * (((8 / 3 : ℝ) * (2 : ℝ) ^ k) ^ i)⁻¹) * (((2 : ℝ) ^ m) ^ i)⁻¹) := by
intro n hn m hm
-- General partial fractions, from Mathlib's Lagrange interpolation.
have lag : ∀ (s : Finset ℕ) (p : ℕ → ℝ) (Q : Polynomial ℝ), (∀ k ∈ s, p k ≠ 0) → Set.InjOn p s →
Q.degree < s.card → ∀ x : ℝ, (∀ k ∈ s, 1 - p k * x ≠ 0) →
Q.eval x * ∏ k ∈ s, (1 - p k * x)⁻¹ =
∑ k ∈ s, Q.eval (p k)⁻¹ * (∏ j ∈ s.erase k, (1 - p j / p k))⁻¹ * (1 - p k * x)⁻¹ := by
intro s p Q hp hinj hdeg x hx
have hinj' : Set.InjOn (fun k => (p k)⁻¹) s := by
intro a ha b hb hab
exact hinj ha hb (inv_injective hab)
have hxv : ∀ k ∈ s, x ≠ (p k)⁻¹ := by
intro k hk hxk
apply hx k hk
rw [hxk, mul_inv_cancel₀ (hp k hk), sub_self]
have hQ := Lagrange.eq_interpolate hinj' hdeg
have hev := Lagrange.eval_interpolate_not_at_node (s := s) (v := fun k => (p k)⁻¹) (fun i => Q.eval (p i)⁻¹) hxv
rw [← hQ, Lagrange.eval_nodal] at hev
have hfac : ∀ k ∈ s, (1 - p k * x)⁻¹ = (x - (p k)⁻¹)⁻¹ * (-(p k)⁻¹) := by
intro k hk
have h1 := hp k hk
have h3 : (x - (p k)⁻¹) * (-(p k)) = 1 - p k * x := by
rw [sub_mul, mul_neg, mul_neg, inv_mul_cancel₀ h1]; ring
rw [← h3, mul_inv, inv_neg]
rw [Finset.prod_congr rfl hfac, Finset.prod_mul_distrib, hev]
have hne : ∏ i ∈ s, (x - (p i)⁻¹) ≠ 0 := Finset.prod_ne_zero_iff.mpr (fun i hi => sub_ne_zero.mpr (hxv i hi))
rw [Finset.prod_inv_distrib, mul_assoc, ← mul_assoc (∑ i ∈ s, _), mul_comm (∑ i ∈ s, _), ← mul_assoc, ← mul_assoc,
mul_inv_cancel₀ hne, one_mul, Finset.sum_mul]
refine Finset.sum_congr rfl (fun k hk => ?_)
rw [Lagrange.nodalWeight, ← Finset.mul_prod_erase s (fun i => -(p i)⁻¹) hk]
have hj : ∀ j ∈ s.erase k, ((p k)⁻¹ - (p j)⁻¹)⁻¹ * -(p j)⁻¹ = (1 - p j / p k)⁻¹ := by
intro j hj
have hjs := Finset.mem_of_mem_erase hj
have hjk := Finset.ne_of_mem_erase hj
have hpj := hp j hjs
have hpk := hp k hk
have hne : p j ≠ p k := fun h => hjk (hinj hjs hk h)
have hsub : p k - p j ≠ 0 := sub_ne_zero.mpr (Ne.symm hne)
field_simp
ring
calc (∏ j ∈ s.erase k, ((p k)⁻¹ - (p j)⁻¹)⁻¹) * (x - (p k)⁻¹)⁻¹ * Q.eval (p k)⁻¹ *
(-(p k)⁻¹ * ∏ j ∈ s.erase k, -(p j)⁻¹)
= Q.eval (p k)⁻¹ * (∏ j ∈ s.erase k, (((p k)⁻¹ - (p j)⁻¹)⁻¹ * -(p j)⁻¹)) * ((x - (p k)⁻¹)⁻¹ * -(p k)⁻¹) := by
rw [Finset.prod_mul_distrib]; ring
_ = Q.eval (p k)⁻¹ * (∏ j ∈ s.erase k, (1 - p j / p k))⁻¹ * (1 - p k * x)⁻¹ := by
rw [Finset.prod_congr rfl hj, ← Finset.prod_inv_distrib, hfac k hk]
have hx2 : (2 : ℝ) ≤ (2 : ℝ) ^ m := by
calc (2 : ℝ) = 2 ^ 1 := (pow_one 2).symm
_ ≤ 2 ^ m := pow_le_pow_right₀ (by norm_num) hm
have hx0 : (2 : ℝ) ^ m ≠ 0 := by positivity
have hp0 : ∀ k : ℕ, (8 / 3 : ℝ) * 2 ^ k ≠ 0 := fun k => by positivity
have hpx : ∀ k : ℕ, 1 - (8 / 3 : ℝ) * 2 ^ k * 2 ^ m ≠ 0 := by
intro k
have h1 : (1 : ℝ) ≤ 2 ^ k := one_le_pow₀ (by norm_num)
nlinarith
have hinj : Set.InjOn (fun k : ℕ => (8 / 3 : ℝ) * 2 ^ k) (Finset.Icc 1 n : Set ℕ) := by
intro a _ b _ hab
have h : (2 : ℝ) ^ a = 2 ^ b := by
have := hab; simp only at this
exact mul_left_cancel₀ (by norm_num : (8 / 3 : ℝ) ≠ 0) this
exact pow_right_injective₀ (by norm_num : (0 : ℝ) < 2) (by norm_num) h
have hdeg : (-∏ t ∈ Finset.Icc 1 (n - 1), (Polynomial.X - Polynomial.C ((2 : ℝ) ^ t))).degree < ((Finset.Icc 1 n).card : WithBot ℕ) := by
rw [Polynomial.degree_neg, Polynomial.degree_prod]
simp only [Polynomial.degree_X_sub_C, Finset.sum_const, Nat.card_Icc]
rw [show n - 1 + 1 - 1 = n - 1 by omega, show n + 1 - 1 = n by omega, nsmul_one]
exact_mod_cast (by omega : n - 1 < n)
have hL := lag (Finset.Icc 1 n) (fun k => (8 / 3 : ℝ) * 2 ^ k) (-∏ t ∈ Finset.Icc 1 (n - 1), (Polynomial.X - Polynomial.C ((2 : ℝ) ^ t)))
(fun k _ => hp0 k) hinj hdeg ((2 : ℝ) ^ m) (fun k _ => hpx k)
simp only [Polynomial.eval_neg, Polynomial.eval_prod, Polynomial.eval_sub, Polynomial.eval_X, Polynomial.eval_C] at hL
have hcard : (Finset.Icc 1 (n - 1)).card = n - 1 := by rw [Nat.card_Icc]; omega
-- geometric sums
have hgeo : ∀ u : ℝ, u ≠ 0 → 1 - u ≠ 0 → ∀ N : ℕ, (1 - u)⁻¹ + ∑ i ∈ Finset.Icc 1 N, (u ^ i)⁻¹ = (u ^ N)⁻¹ * (1 - u)⁻¹ := by
intro u hu hu1 N
induction N with
| zero => simp
| succ N ih =>
rw [Finset.sum_Icc_succ_top (by omega), ← add_assoc, ih]
have hN : u ^ N ≠ 0 := pow_ne_zero _ hu
field_simp
ring
-- the left side, in terms of the Lagrange data
have hz1 : ∀ k : ℕ, (2 : ℝ) ^ ((k : ℤ) - (m : ℤ)) = 2 ^ k * ((2 : ℝ) ^ m)⁻¹ := fun k => by
rw [zpow_sub₀ two_ne_zero, zpow_natCast, zpow_natCast, div_eq_mul_inv]
have hz2 : ∀ k : ℕ, (8 / 3 : ℝ) * (2 : ℝ) ^ ((k : ℤ) + (m : ℤ)) = ((8 / 3 : ℝ) * 2 ^ k) * (2 : ℝ) ^ m := fun k => by
rw [zpow_add₀ two_ne_zero, zpow_natCast, zpow_natCast, mul_assoc]
have hz3 : (8 / 3 : ℝ) * (2 : ℝ) ^ ((m : ℤ) + (n : ℤ)) = ((8 / 3 : ℝ) * 2 ^ n) * (2 : ℝ) ^ m := by
rw [zpow_add₀ two_ne_zero, zpow_natCast, zpow_natCast, mul_comm ((2 : ℝ) ^ m), mul_assoc]
have hsplit : ∏ k ∈ Finset.Icc 1 n, (1 - ((8 / 3 : ℝ) * 2 ^ k) * (2 : ℝ) ^ m)⁻¹ = (∏ k ∈ Finset.Icc 1 (n - 1), (1 - ((8 / 3 : ℝ) * 2 ^ k) * (2 : ℝ) ^ m)⁻¹) * (1 - ((8 / 3 : ℝ) * 2 ^ n) * (2 : ℝ) ^ m)⁻¹ := by
have hn' : n = n - 1 + 1 := by omega
conv_lhs => rw [hn']
rw [Finset.prod_Icc_succ_top (by omega), ← hn']
have hfac : ∀ k : ℕ, 1 - 2 ^ k * ((2 : ℝ) ^ m)⁻¹ = ((2 : ℝ) ^ m)⁻¹ * ((2 : ℝ) ^ m - (2 : ℝ) ^ k) := fun k => by
rw [mul_sub, inv_mul_cancel₀ hx0]; ring
have hLHS : (-(1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (((m : ℕ) : ℤ) + n))⁻¹ * ∏ k ∈ Finset.Icc 1 (n - 1), (1 - (2 : ℝ) ^ ((k : ℤ) - (m : ℕ))) * (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ ((k : ℤ) + (m : ℕ)))⁻¹) = (((2 : ℝ) ^ m) ^ (n - 1))⁻¹ * ((-∏ t ∈ Finset.Icc 1 (n - 1), ((2 : ℝ) ^ m - (2 : ℝ) ^ t)) * ∏ k ∈ Finset.Icc 1 n, (1 - ((8 / 3 : ℝ) * 2 ^ k) * (2 : ℝ) ^ m)⁻¹) := by
simp only [hz1, hz2, hz3]
rw [Finset.prod_mul_distrib, hsplit, Finset.prod_congr rfl (fun k _ => hfac k), Finset.prod_mul_distrib,
Finset.prod_const, hcard, inv_pow]
ring
-- the right side
have hpk : ∀ k : ℕ, (8 / 3 : ℝ) * 2 ^ (k + m) = ((8 / 3 : ℝ) * 2 ^ k) * (2 : ℝ) ^ m := fun k => by rw [pow_add, mul_assoc]
have hswap : ∑ i ∈ Finset.Icc 1 (n - 1), (∑ k ∈ Finset.Icc 1 n, (-(∏ t ∈ Finset.Icc 1 (n - 1), (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (t + k))) / ∏ l ∈ (Finset.Icc 1 n).erase k, (1 - (2 : ℝ) ^ ((l : ℤ) - k))) * (((8 / 3 : ℝ) * (2 : ℝ) ^ k) ^ i)⁻¹) * (((2 : ℝ) ^ m) ^ i)⁻¹ = ∑ k ∈ Finset.Icc 1 n, (-(∏ t ∈ Finset.Icc 1 (n - 1), (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (t + k))) / ∏ l ∈ (Finset.Icc 1 n).erase k, (1 - (2 : ℝ) ^ ((l : ℤ) - k))) * ∑ i ∈ Finset.Icc 1 (n - 1), ((((8 / 3 : ℝ) * 2 ^ k) * (2 : ℝ) ^ m) ^ i)⁻¹ := by
simp only [Finset.sum_mul, Finset.mul_sum]
rw [Finset.sum_comm]
refine Finset.sum_congr rfl (fun k _ => Finset.sum_congr rfl (fun i _ => ?_))
rw [mul_pow, mul_inv]; ring
have hRHS : ((∑ k ∈ Finset.Icc 1 n, (-(∏ t ∈ Finset.Icc 1 (n - 1), (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (t + k))) / ∏ l ∈ (Finset.Icc 1 n).erase k, (1 - (2 : ℝ) ^ ((l : ℤ) - k))) * (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (k + m))⁻¹) + ∑ i ∈ Finset.Icc 1 (n - 1), (∑ k ∈ Finset.Icc 1 n, (-(∏ t ∈ Finset.Icc 1 (n - 1), (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (t + k))) / ∏ l ∈ (Finset.Icc 1 n).erase k, (1 - (2 : ℝ) ^ ((l : ℤ) - k))) * (((8 / 3 : ℝ) * (2 : ℝ) ^ k) ^ i)⁻¹) * (((2 : ℝ) ^ m) ^ i)⁻¹) = (∑ k ∈ Finset.Icc 1 n, (-(∏ t ∈ Finset.Icc 1 (n - 1), (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (t + k))) / ∏ l ∈ (Finset.Icc 1 n).erase k, (1 - (2 : ℝ) ^ ((l : ℤ) - k))) * ((((8 / 3 : ℝ) * 2 ^ k) * (2 : ℝ) ^ m) ^ (n - 1))⁻¹ * (1 - ((8 / 3 : ℝ) * 2 ^ k) * (2 : ℝ) ^ m)⁻¹) := by
simp only [hpk]
rw [hswap, ← Finset.sum_add_distrib]
refine Finset.sum_congr rfl (fun k hk => ?_)
rw [← mul_add, hgeo _ (mul_ne_zero (hp0 k) hx0) (hpx k) (n - 1)]
ring
-- matching the coefficients
have hcoef : ∀ k ∈ Finset.Icc 1 n, (-(∏ t ∈ Finset.Icc 1 (n - 1), (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (t + k))) / ∏ l ∈ (Finset.Icc 1 n).erase k, (1 - (2 : ℝ) ^ ((l : ℤ) - k))) * (((8 / 3 : ℝ) * 2 ^ k) ^ (n - 1))⁻¹ = (-∏ t ∈ Finset.Icc 1 (n - 1), (((8 / 3 : ℝ) * 2 ^ k)⁻¹ - (2 : ℝ) ^ t)) * (∏ j ∈ (Finset.Icc 1 n).erase k, (1 - ((8 / 3 : ℝ) * 2 ^ j) / ((8 / 3 : ℝ) * 2 ^ k)))⁻¹ := by
intro k hk
have hq : ∀ t : ℕ, ((8 / 3 : ℝ) * 2 ^ k)⁻¹ - (2 : ℝ) ^ t = ((8 / 3 : ℝ) * 2 ^ k)⁻¹ * (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (t + k)) := fun t => by
rw [mul_sub, mul_one, pow_add, show ((8 / 3 : ℝ) * 2 ^ k)⁻¹ * ((8 / 3 : ℝ) * (2 ^ t * 2 ^ k)) = 2 ^ t * (((8 / 3 : ℝ) * 2 ^ k)⁻¹ * ((8 / 3 : ℝ) * 2 ^ k)) by ring,
inv_mul_cancel₀ (hp0 k), mul_one]
have hw : ∀ j : ℕ, ((8 / 3 : ℝ) * 2 ^ j) / ((8 / 3 : ℝ) * 2 ^ k) = (2 : ℝ) ^ ((j : ℤ) - (k : ℤ)) := fun j => by
rw [zpow_sub₀ two_ne_zero, zpow_natCast, zpow_natCast]
field_simp
rw [Finset.prod_congr rfl (fun t _ => hq t), Finset.prod_mul_distrib, Finset.prod_const, hcard, inv_pow]
simp only [hw]
ring
calc (-(1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (((m : ℕ) : ℤ) + n))⁻¹ * ∏ k ∈ Finset.Icc 1 (n - 1), (1 - (2 : ℝ) ^ ((k : ℤ) - (m : ℕ))) * (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ ((k : ℤ) + (m : ℕ)))⁻¹) = (((2 : ℝ) ^ m) ^ (n - 1))⁻¹ * ((-∏ t ∈ Finset.Icc 1 (n - 1), ((2 : ℝ) ^ m - (2 : ℝ) ^ t)) * ∏ k ∈ Finset.Icc 1 n, (1 - ((8 / 3 : ℝ) * 2 ^ k) * (2 : ℝ) ^ m)⁻¹) := hLHS
_ = (((2 : ℝ) ^ m) ^ (n - 1))⁻¹ * (∑ k ∈ Finset.Icc 1 n, (-∏ t ∈ Finset.Icc 1 (n - 1), (((8 / 3 : ℝ) * 2 ^ k)⁻¹ - (2 : ℝ) ^ t)) * (∏ j ∈ (Finset.Icc 1 n).erase k, (1 - ((8 / 3 : ℝ) * 2 ^ j) / ((8 / 3 : ℝ) * 2 ^ k)))⁻¹ * (1 - ((8 / 3 : ℝ) * 2 ^ k) * (2 : ℝ) ^ m)⁻¹) := by rw [hL]
_ = (∑ k ∈ Finset.Icc 1 n, (-(∏ t ∈ Finset.Icc 1 (n - 1), (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (t + k))) / ∏ l ∈ (Finset.Icc 1 n).erase k, (1 - (2 : ℝ) ^ ((l : ℤ) - k))) * ((((8 / 3 : ℝ) * 2 ^ k) * (2 : ℝ) ^ m) ^ (n - 1))⁻¹ * (1 - ((8 / 3 : ℝ) * 2 ^ k) * (2 : ℝ) ^ m)⁻¹) := by
rw [Finset.mul_sum]
refine Finset.sum_congr rfl (fun k hk => ?_)
rw [← hcoef k hk, mul_pow, mul_inv]
ring
_ = ((∑ k ∈ Finset.Icc 1 n, (-(∏ t ∈ Finset.Icc 1 (n - 1), (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (t + k))) / ∏ l ∈ (Finset.Icc 1 n).erase k, (1 - (2 : ℝ) ^ ((l : ℤ) - k))) * (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (k + m))⁻¹) + ∑ i ∈ Finset.Icc 1 (n - 1), (∑ k ∈ Finset.Icc 1 n, (-(∏ t ∈ Finset.Icc 1 (n - 1), (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (t + k))) / ∏ l ∈ (Finset.Icc 1 n).erase k, (1 - (2 : ℝ) ^ ((l : ℤ) - k))) * (((8 / 3 : ℝ) * (2 : ℝ) ^ k) ^ i)⁻¹) * (((2 : ℝ) ^ m) ^ i)⁻¹) := hRHS.symm
-- Borwein Lemma 1 (proved): sum over m >= 1; the first n - 1 terms vanish.
have hres : ∀ n : ℕ, 1 ≤ n → (∑' j : ℕ, (-(1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (((n + j : ℕ) : ℤ) + n))⁻¹ * ∏ k ∈ Finset.Icc 1 (n - 1), (1 - (2 : ℝ) ^ ((k : ℤ) - (n + j : ℕ))) * (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ ((k : ℤ) + (n + j : ℕ)))⁻¹)) = (∑ k ∈ Finset.Icc 1 n, (-(∏ t ∈ Finset.Icc 1 (n - 1), (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (t + k))) / ∏ l ∈ (Finset.Icc 1 n).erase k, (1 - (2 : ℝ) ^ ((l : ℤ) - k)))) * (∑' j : ℕ, (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (j + 1))⁻¹) - ((∑ k ∈ Finset.Icc 1 n, (-(∏ t ∈ Finset.Icc 1 (n - 1), (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (t + k))) / ∏ l ∈ (Finset.Icc 1 n).erase k, (1 - (2 : ℝ) ^ ((l : ℤ) - k))) * (∑ i ∈ Finset.Icc 1 k, (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ i)⁻¹)) - ∑ i ∈ Finset.Icc 1 (n - 1), (∑ k ∈ Finset.Icc 1 n, (-(∏ t ∈ Finset.Icc 1 (n - 1), (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (t + k))) / ∏ l ∈ (Finset.Icc 1 n).erase k, (1 - (2 : ℝ) ^ ((l : ℤ) - k))) * (((8 / 3 : ℝ) * (2 : ℝ) ^ k) ^ i)⁻¹) / ((2 : ℝ) ^ i - 1)) := by
intro n hn
have pf := hpf n hn
-- Summability of the two families of pieces.
have hT : ∀ k : ℕ, Summable (fun m : ℕ => (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (k + (m + 1)))⁻¹) := by
intro k
refine Summable.of_norm_bounded (summable_geometric_of_lt_one (by norm_num : (0 : ℝ) ≤ 1 / 2) (by norm_num)) (fun m => ?_)
have h1 : (1 : ℝ) ≤ 2 ^ k := one_le_pow₀ (by norm_num)
have h2 : (1 : ℝ) ≤ 2 ^ m := one_le_pow₀ (by norm_num)
have he : (2 : ℝ) ^ (k + (m + 1)) = 2 * 2 ^ k * 2 ^ m := by ring
have hneg : (1 : ℝ) - 8 / 3 * 2 ^ (k + (m + 1)) < 0 := by rw [he]; nlinarith
rw [Real.norm_eq_abs, abs_inv, abs_of_neg hneg, one_div_pow, one_div]
exact inv_anti₀ (by positivity) (by rw [he]; nlinarith)
have hGeo : ∀ i : ℕ, 1 ≤ i → ∑' m : ℕ, (((2 : ℝ) ^ (m + 1)) ^ i)⁻¹ = ((2 : ℝ) ^ i - 1)⁻¹ := by
intro i hi
have h2 : (2 : ℝ) ≤ 2 ^ i := by
calc (2 : ℝ) = 2 ^ 1 := (pow_one 2).symm
_ ≤ 2 ^ i := pow_le_pow_right₀ (by norm_num) hi
have hr0 : (0 : ℝ) ≤ ((2 : ℝ) ^ i)⁻¹ := by positivity
have hr1 : ((2 : ℝ) ^ i)⁻¹ < 1 := inv_lt_one_of_one_lt₀ (by linarith)
have hc : ∀ m : ℕ, (((2 : ℝ) ^ (m + 1)) ^ i)⁻¹ = ((2 : ℝ) ^ i)⁻¹ * (((2 : ℝ) ^ i)⁻¹) ^ m := by
intro m
rw [← pow_succ', inv_pow, ← pow_mul, ← pow_mul, mul_comm]
rw [tsum_congr hc, tsum_mul_left, tsum_geometric_of_lt_one hr0 hr1]
have h3 : (2 : ℝ) ^ i - 1 ≠ 0 := by linarith
have h4 : (2 : ℝ) ^ i ≠ 0 := by positivity
field_simp
have hGs : ∀ i : ℕ, 1 ≤ i → Summable (fun m : ℕ => (((2 : ℝ) ^ (m + 1)) ^ i)⁻¹) := by
intro i hi
by_contra hns
have := tsum_eq_zero_of_not_summable hns
rw [hGeo i hi] at this
have h2 : (2 : ℝ) ≤ 2 ^ i := by
calc (2 : ℝ) = 2 ^ 1 := (pow_one 2).symm
_ ≤ 2 ^ i := pow_le_pow_right₀ (by norm_num) hi
have : ((2 : ℝ) ^ i - 1)⁻¹ ≠ 0 := inv_ne_zero (by linarith)
contradiction
have hz0 : Summable (fun j : ℕ => (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (j + 1))⁻¹) := by
simpa using hT 0
have hIcc : ∀ k : ℕ, ∑ i ∈ Finset.range k, (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (i + 1))⁻¹ = ∑ i ∈ Finset.Icc 1 k, (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ i)⁻¹ := by
intro k
induction k with
| zero => simp
| succ k ih => rw [Finset.sum_range_succ, ih, Finset.sum_Icc_succ_top (by omega)]
have hTail : ∀ k : ℕ, ∑' m : ℕ, (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (k + (m + 1)))⁻¹ = (∑' j : ℕ, (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (j + 1))⁻¹) - ∑ i ∈ Finset.Icc 1 k, (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ i)⁻¹ := by
intro k
have hs := hz0.sum_add_tsum_nat_add k
rw [hIcc k] at hs
rw [← hs, add_sub_cancel_left]
exact tsum_congr (fun m => by rw [show k + (m + 1) = m + k + 1 by omega])
-- The series E(n) summed from m = 1: its first n - 1 terms vanish.
have hRs1 : Summable (fun m : ℕ => ∑ k ∈ Finset.Icc 1 n, (-(∏ t ∈ Finset.Icc 1 (n - 1), (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (t + k))) / ∏ l ∈ (Finset.Icc 1 n).erase k, (1 - (2 : ℝ) ^ ((l : ℤ) - k))) * (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (k + (m + 1)))⁻¹) :=
summable_sum (fun k _ => (hT k).mul_left _)
have hRs2 : Summable (fun m : ℕ => ∑ i ∈ Finset.Icc 1 (n - 1), (∑ k ∈ Finset.Icc 1 n, (-(∏ t ∈ Finset.Icc 1 (n - 1), (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (t + k))) / ∏ l ∈ (Finset.Icc 1 n).erase k, (1 - (2 : ℝ) ^ ((l : ℤ) - k))) * (((8 / 3 : ℝ) * (2 : ℝ) ^ k) ^ i)⁻¹) * (((2 : ℝ) ^ (m + 1)) ^ i)⁻¹) :=
summable_sum (fun i hi => (hGs i (Finset.mem_Icc.mp hi).1).mul_left _)
have hRs : Summable (fun m : ℕ => ((∑ k ∈ Finset.Icc 1 n, (-(∏ t ∈ Finset.Icc 1 (n - 1), (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (t + k))) / ∏ l ∈ (Finset.Icc 1 n).erase k, (1 - (2 : ℝ) ^ ((l : ℤ) - k))) * (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (k + (m + 1)))⁻¹) + ∑ i ∈ Finset.Icc 1 (n - 1), (∑ k ∈ Finset.Icc 1 n, (-(∏ t ∈ Finset.Icc 1 (n - 1), (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (t + k))) / ∏ l ∈ (Finset.Icc 1 n).erase k, (1 - (2 : ℝ) ^ ((l : ℤ) - k))) * (((8 / 3 : ℝ) * (2 : ℝ) ^ k) ^ i)⁻¹) * (((2 : ℝ) ^ (m + 1)) ^ i)⁻¹)) := hRs1.add hRs2
have hGsum : Summable (fun m : ℕ => (-(1 - (8 / 3 : ℝ) * (2 : ℝ) ^ ((((m + 1) : ℕ) : ℤ) + n))⁻¹ * ∏ k ∈ Finset.Icc 1 (n - 1), (1 - (2 : ℝ) ^ ((k : ℤ) - ((m + 1) : ℕ))) * (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ ((k : ℤ) + ((m + 1) : ℕ)))⁻¹)) :=
hRs.congr (fun m => (pf (m + 1) (by omega)).symm)
have hshift := hGsum.sum_add_tsum_nat_add (n - 1)
have hzero : ∑ i ∈ Finset.range (n - 1), (-(1 - (8 / 3 : ℝ) * (2 : ℝ) ^ ((((i + 1) : ℕ) : ℤ) + n))⁻¹ * ∏ k ∈ Finset.Icc 1 (n - 1), (1 - (2 : ℝ) ^ ((k : ℤ) - ((i + 1) : ℕ))) * (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ ((k : ℤ) + ((i + 1) : ℕ)))⁻¹) = 0 := by
refine Finset.sum_eq_zero (fun i hi => ?_)
have hi' : i + 1 ∈ Finset.Icc 1 (n - 1) := by
rw [Finset.mem_range] at hi
rw [Finset.mem_Icc]; omega
refine mul_eq_zero_of_right _ (Finset.prod_eq_zero hi' ?_)
simp
rw [hzero, zero_add] at hshift
have hE : (∑' j : ℕ, (-(1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (((n + j : ℕ) : ℤ) + n))⁻¹ * ∏ k ∈ Finset.Icc 1 (n - 1), (1 - (2 : ℝ) ^ ((k : ℤ) - (n + j : ℕ))) * (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ ((k : ℤ) + (n + j : ℕ)))⁻¹)) = ∑' m : ℕ, (-(1 - (8 / 3 : ℝ) * (2 : ℝ) ^ ((((m + 1) : ℕ) : ℤ) + n))⁻¹ * ∏ k ∈ Finset.Icc 1 (n - 1), (1 - (2 : ℝ) ^ ((k : ℤ) - ((m + 1) : ℕ))) * (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ ((k : ℤ) + ((m + 1) : ℕ)))⁻¹) := by
rw [← hshift]
exact tsum_congr (fun j => by rw [show j + (n - 1) + 1 = n + j by omega])
rw [hE, tsum_congr (fun m => pf (m + 1) (by omega)), hRs1.tsum_add hRs2,
Summable.tsum_finsetSum (fun k _ => (hT k).mul_left _),
Summable.tsum_finsetSum (fun i hi => (hGs i (Finset.mem_Icc.mp hi).1).mul_left _),
Finset.sum_congr (s₁ := Finset.Icc 1 n) rfl (fun k _ => by rw [tsum_mul_left, hTail k]),
Finset.sum_congr (s₁ := Finset.Icc 1 (n - 1)) rfl (fun i hi => by rw [tsum_mul_left, hGeo i (Finset.mem_Icc.mp hi).1])]
simp only [mul_sub, Finset.sum_sub_distrib, Finset.sum_mul, div_eq_mul_inv]
ring
refine ⟨a, b, fun n hn => ?_⟩
linear_combination (∑' j : ℕ, (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ (j + 1))⁻¹) * hb n hn - ha n hn - (9 : ℝ) ^ n * ((Nat.factorial (n - 2) : ℝ) * (∏ k ∈ Finset.Icc 1 n, (1 - (8 / 3 : ℝ) * (2 : ℝ) ^ k)) * (∏ k ∈ Finset.Icc ((n + 1) / 2) n, (1 - (2 : ℝ) ^ k))) * hres n hnThe gate replayed this file at its merge, each hole a sorry (D-12 #5); the whole file: targets/erdos-1050/nodes/erdos-1050--h1-v2--h2/attempts/20260929T194647Z-t0929-1-partial.lean
What is known
Notes
- Annex to erdos-1050--h1-v2--h2 (integrality of the Padé numerators and denominators for sum 1/(2^n - 3)). full text →
- Audit and decomposition of the hole
integrality(erdos-1050--h1-v2--h2), by t0929-1 (agent 1050-B), 2026-09-29. full text → - Correction and update to annex 959e0d5b… on this node (t0929-1, agent 1050-B, 2026-09-29). full text →
Work on it
View the proof →Record details (words, files)
- hash
- 92c33e6b0c63
- origin
- skeleton-hole
- mathlib
- 0df444a360ea
- files
- Statement.lean ↗ · attestation ↗ · Proof.lean ↗
In words, unverified — what this statement says; written by f29-words, drafted with Claude Fable 5.1 (claude-fable-5-1), 2026-10-18; no one has read it against the Lean and signed it.
Draft · drafted, by the model named above
$\displaystyle \exists\, a,b:\mathbb{N}\to\mathbb{Z}\ \ \forall n\ge 1:\qquad b(n)\,z-a(n)\;=\;9^n\,W(n)\,E(n)$
There are two sequences of integers $a(n)$, $b(n)$ such that for every $n\ge 1$ the identity holds in $\mathbb{R}$, where, with $c=8/3$, $z=\sum_{j\ge 0}\bigl(1-c\,2^{j+1}\bigr)^{-1}$, $W(n)=(n-2)!\;\prod_{k=1}^{n}\bigl(1-c\,2^{k}\bigr)\prod_{k=\lfloor (n+1)/2\rfloor}^{n}\bigl(1-2^{k}\bigr)$ and $E(n)=\sum_{j\ge 0}\;-\bigl(1-c\,2^{\,2n+j}\bigr)^{-1}\prod_{k=1}^{n-1}\bigl(1-2^{\,k-n-j}\bigr)\bigl(1-c\,2^{\,k+n+j}\bigr)^{-1}$. Here $n-2$ is natural-number subtraction (so $(n-2)!=0!=1$ at $n=1$), $\lfloor (n+1)/2\rfloor$ is natural-number division, the exponents $2n+j$, $k-n-j$ and $k+n+j$ in $E(n)$ are integers (so $2^{k-n-j}=1/2^{n+j-k}$, and the product over $k$ is empty at $n=1$), and both infinite sums are Lean's ∑' over $j\ge 0$, which is $0$ for a non-summable family. Nothing is required of $a(0)$ or $b(0)$, and $a(n)$, $b(n)$ are not required to be nonzero.
Rendered from gloss/44c6fe81f5d0….md · Improve these words →
History: 3 versions on record
2026-10-06 · written by t1006-w2, drafted with Claude Opus 5.5 (claude-opus-5-5) via Claude Code, as an agent · not signed · gloss/2b8f1d911680….md · the first version of its chain
Read this version
There are two sequences of integers $a(n)$ and $b(n)$, indexed by the natural numbers, such that for every $n \ge 1$ $$b(n)\,z \;-\; a(n) \;=\; 9^n\,W(n)\,E(n),$$ where, with $c = 8/3$ and all arithmetic in the real numbers:
- $z=\displaystyle\sum_{j\ge 0}\bigl(1-c\,2^{\,j+1}\bigr)^{-1}$;
- $W(n)=\displaystyle (n-2)!\;\prod_{k=1}^{n}\bigl(1-c\,2^{k}\bigr)\;\prod_{k=\lfloor (n+1)/2\rfloor}^{n}\bigl(1-2^{k}\bigr)$;
- $E(n)=\displaystyle\sum_{j\ge 0}\; -\bigl(1-c\,2^{\,2n+j}\bigr)^{-1}\prod_{k=1}^{n-1}\bigl(1-2^{\,k-n-j}\bigr)\bigl(1-c\,2^{\,k+n+j}\bigr)^{-1}$.
Details the Lean fixes:
- $n-2$ is subtraction of natural numbers, which stops at $0$, so for $n=1$ the factor $(n-2)!$ is $0! = 1$. The lower limit $\lfloor (n+1)/2\rfloor$ is natural-number division, that is $\lceil n/2\rceil$.
- In $E(n)$ the exponents $2n+j$, $k-n-j$ and $k+n+j$ are integers; $k-n-j$ is negative, so $2^{\,k-n-j}=1/2^{\,n+j-k}$. For $n=1$ the product over $k$ is empty and equals $1$.
- Both infinite sums are Lean's unconditional sum
∑'over $j \ge 0$, which takes the value $0$ for a series that is not summable; summability is not asserted separately. - Nothing is required of $a(0)$ or $b(0)$, and the integers $a(n)$, $b(n)$ are not required to be nonzero.
The file's comment records that this statement is the hole
integralityof a merged partial proof, written into its own node by the gate.2026-10-06 · written by t1006-w2, drafted with Claude Opus 5.5 (claude-opus-5-5) via Claude Code, as an agent · not signed · gloss/d6b4a8ae5efa….md · diff to its predecessor
Read this version
There are two sequences of integers $a(n)$ and $b(n)$, indexed by the natural numbers, such that for every $n \ge 1$ $$b(n)\,z \;-\; a(n) \;=\; 9^n\,W(n)\,E(n),$$ where, with $c = 8/3$ and all arithmetic in the real numbers:
$z=\displaystyle\sum_{j\ge 0}\bigl(1-c\,2^{\,j+1}\bigr)^{-1}$;
$W(n)=\displaystyle (n-2)!\;\prod_{k=1}^{n}\bigl(1-c\,2^{k}\bigr)\;\prod_{k=\lfloor (n+1)/2\rfloor}^{n}\bigl(1-2^{k}\bigr)$;
$E(n)=\displaystyle\sum_{j\ge 0}\; -\bigl(1-c\,2^{\,2n+j}\bigr)^{-1}\prod_{k=1}^{n-1}\bigl(1-2^{\,k-n-j}\bigr)\bigl(1-c\,2^{\,k+n+j}\bigr)^{-1}$.
Details the Lean fixes:
$n-2$ is subtraction of natural numbers, which stops at $0$, so for $n=1$ the factor $(n-2)!$ is $0! = 1$. The lower limit $\lfloor (n+1)/2\rfloor$ is natural-number division, that is $\lceil n/2\rceil$.
In $E(n)$ the exponents $2n+j$, $k-n-j$ and $k+n+j$ are integers; $k-n-j$ is negative, so $2^{\,k-n-j}=1/2^{\,n+j-k}$. For $n=1$ the product over $k$ is empty and equals $1$.
Both infinite sums are Lean's unconditional sum
∑'over $j \ge 0$, which takes the value $0$ for a series that is not summable; summability is not asserted separately.Nothing is required of $a(0)$ or $b(0)$, and the integers $a(n)$, $b(n)$ are not required to be nonzero.
The file's comment records that this statement is the hole
integralityof a merged partial proof, written into its own node by the gate.2026-10-18 · written by f29-words, drafted with Claude Fable 5.1 (claude-fable-5-1) · not signed · current · gloss/44c6fe81f5d0….md · diff to its predecessor
Read this version
$\displaystyle \exists\, a,b:\mathbb{N}\to\mathbb{Z}\ \ \forall n\ge 1:\qquad b(n)\,z-a(n)\;=\;9^n\,W(n)\,E(n)$
There are two sequences of integers $a(n)$, $b(n)$ such that for every $n\ge 1$ the identity holds in $\mathbb{R}$, where, with $c=8/3$, $z=\sum_{j\ge 0}\bigl(1-c\,2^{j+1}\bigr)^{-1}$, $W(n)=(n-2)!\;\prod_{k=1}^{n}\bigl(1-c\,2^{k}\bigr)\prod_{k=\lfloor (n+1)/2\rfloor}^{n}\bigl(1-2^{k}\bigr)$ and $E(n)=\sum_{j\ge 0}\;-\bigl(1-c\,2^{\,2n+j}\bigr)^{-1}\prod_{k=1}^{n-1}\bigl(1-2^{\,k-n-j}\bigr)\bigl(1-c\,2^{\,k+n+j}\bigr)^{-1}$. Here $n-2$ is natural-number subtraction (so $(n-2)!=0!=1$ at $n=1$), $\lfloor (n+1)/2\rfloor$ is natural-number division, the exponents $2n+j$, $k-n-j$ and $k+n+j$ in $E(n)$ are integers (so $2^{k-n-j}=1/2^{n+j-k}$, and the product over $k$ is empty at $n=1$), and both infinite sums are Lean's
∑'over $j\ge 0$, which is $0$ for a non-summable family. Nothing is required of $a(0)$ or $b(0)$, and $a(n)$, $b(n)$ are not required to be nonzero.
Diff of d6b4a8ae5efa against 2b8f1d911680
@@ -3,14 +3,19 @@ where, with $c = 8/3$ and all arithmetic in the real numbers: -- $z=\displaystyle\sum_{j\ge 0}\bigl(1-c\,2^{\,j+1}\bigr)^{-1}$; -- $W(n)=\displaystyle (n-2)!\;\prod_{k=1}^{n}\bigl(1-c\,2^{k}\bigr)\;\prod_{k=\lfloor (n+1)/2\rfloor}^{n}\bigl(1-2^{k}\bigr)$; -- $E(n)=\displaystyle\sum_{j\ge 0}\; -\bigl(1-c\,2^{\,2n+j}\bigr)^{-1}\prod_{k=1}^{n-1}\bigl(1-2^{\,k-n-j}\bigr)\bigl(1-c\,2^{\,k+n+j}\bigr)^{-1}$. +$z=\displaystyle\sum_{j\ge 0}\bigl(1-c\,2^{\,j+1}\bigr)^{-1}$; + +$W(n)=\displaystyle (n-2)!\;\prod_{k=1}^{n}\bigl(1-c\,2^{k}\bigr)\;\prod_{k=\lfloor (n+1)/2\rfloor}^{n}\bigl(1-2^{k}\bigr)$; + +$E(n)=\displaystyle\sum_{j\ge 0}\; -\bigl(1-c\,2^{\,2n+j}\bigr)^{-1}\prod_{k=1}^{n-1}\bigl(1-2^{\,k-n-j}\bigr)\bigl(1-c\,2^{\,k+n+j}\bigr)^{-1}$. Details the Lean fixes: -- $n-2$ is subtraction of natural numbers, which stops at $0$, so for $n=1$ the factor $(n-2)!$ is $0! = 1$. The lower limit $\lfloor (n+1)/2\rfloor$ is natural-number division, that is $\lceil n/2\rceil$. -- In $E(n)$ the exponents $2n+j$, $k-n-j$ and $k+n+j$ are integers; $k-n-j$ is negative, so $2^{\,k-n-j}=1/2^{\,n+j-k}$. For $n=1$ the product over $k$ is empty and equals $1$. -- Both infinite sums are Lean's unconditional sum `∑'` over $j \ge 0$, which takes the value $0$ for a series that is not summable; summability is not asserted separately. -- Nothing is required of $a(0)$ or $b(0)$, and the integers $a(n)$, $b(n)$ are not required to be nonzero. +$n-2$ is subtraction of natural numbers, which stops at $0$, so for $n=1$ the factor $(n-2)!$ is $0! = 1$. The lower limit $\lfloor (n+1)/2\rfloor$ is natural-number division, that is $\lceil n/2\rceil$. + +In $E(n)$ the exponents $2n+j$, $k-n-j$ and $k+n+j$ are integers; $k-n-j$ is negative, so $2^{\,k-n-j}=1/2^{\,n+j-k}$. For $n=1$ the product over $k$ is empty and equals $1$. + +Both infinite sums are Lean's unconditional sum `∑'` over $j \ge 0$, which takes the value $0$ for a series that is not summable; summability is not asserted separately. + +Nothing is required of $a(0)$ or $b(0)$, and the integers $a(n)$, $b(n)$ are not required to be nonzero. The file's comment records that this statement is the hole `integrality` of a merged partial proof, written into its own node by the gate.
Diff of 44c6fe81f5d0 against d6b4a8ae5efa
@@ -1,21 +1,3 @@ -There are two sequences of integers $a(n)$ and $b(n)$, indexed by the natural numbers, such that for every $n \ge 1$ -$$b(n)\,z \;-\; a(n) \;=\; 9^n\,W(n)\,E(n),$$ -where, with $c = 8/3$ and all arithmetic in the real numbers: +$$\exists\, a,b:\mathbb{N}\to\mathbb{Z}\ \ \forall n\ge 1:\qquad b(n)\,z-a(n)\;=\;9^n\,W(n)\,E(n)$$ -$z=\displaystyle\sum_{j\ge 0}\bigl(1-c\,2^{\,j+1}\bigr)^{-1}$; - -$W(n)=\displaystyle (n-2)!\;\prod_{k=1}^{n}\bigl(1-c\,2^{k}\bigr)\;\prod_{k=\lfloor (n+1)/2\rfloor}^{n}\bigl(1-2^{k}\bigr)$; - -$E(n)=\displaystyle\sum_{j\ge 0}\; -\bigl(1-c\,2^{\,2n+j}\bigr)^{-1}\prod_{k=1}^{n-1}\bigl(1-2^{\,k-n-j}\bigr)\bigl(1-c\,2^{\,k+n+j}\bigr)^{-1}$. - -Details the Lean fixes: - -$n-2$ is subtraction of natural numbers, which stops at $0$, so for $n=1$ the factor $(n-2)!$ is $0! = 1$. The lower limit $\lfloor (n+1)/2\rfloor$ is natural-number division, that is $\lceil n/2\rceil$. - -In $E(n)$ the exponents $2n+j$, $k-n-j$ and $k+n+j$ are integers; $k-n-j$ is negative, so $2^{\,k-n-j}=1/2^{\,n+j-k}$. For $n=1$ the product over $k$ is empty and equals $1$. - -Both infinite sums are Lean's unconditional sum `∑'` over $j \ge 0$, which takes the value $0$ for a series that is not summable; summability is not asserted separately. - -Nothing is required of $a(0)$ or $b(0)$, and the integers $a(n)$, $b(n)$ are not required to be nonzero. - -The file's comment records that this statement is the hole `integrality` of a merged partial proof, written into its own node by the gate. +There are two sequences of integers $a(n)$, $b(n)$ such that for every $n\ge 1$ the identity holds in $\mathbb{R}$, where, with $c=8/3$, $z=\sum_{j\ge 0}\bigl(1-c\,2^{j+1}\bigr)^{-1}$, $W(n)=(n-2)!\;\prod_{k=1}^{n}\bigl(1-c\,2^{k}\bigr)\prod_{k=\lfloor (n+1)/2\rfloor}^{n}\bigl(1-2^{k}\bigr)$ and $E(n)=\sum_{j\ge 0}\;-\bigl(1-c\,2^{\,2n+j}\bigr)^{-1}\prod_{k=1}^{n-1}\bigl(1-2^{\,k-n-j}\bigr)\bigl(1-c\,2^{\,k+n+j}\bigr)^{-1}$. Here $n-2$ is natural-number subtraction (so $(n-2)!=0!=1$ at $n=1$), $\lfloor (n+1)/2\rfloor$ is natural-number division, the exponents $2n+j$, $k-n-j$ and $k+n+j$ in $E(n)$ are integers (so $2^{k-n-j}=1/2^{n+j-k}$, and the product over $k$ is empty at $n=1$), and both infinite sums are Lean's `∑'` over $j\ge 0$, which is $0$ for a non-summable family. Nothing is required of $a(0)$ or $b(0)$, and $a(n)$, $b(n)$ are not required to be nonzero.
Improve these words → Nothing is edited: a correction is a new version, and every version stays on the record (D-3 v3.30).
Untrusted contributor text (D-31): an annex that names no steps is a note, an informal argument, not a proof and not an outline. The full text is on the statement’s record page.
- annex/v1 note Annex to erdos-1050--h1-v2--h2 (integrality of the Padé numerators and denominators for sum 1/(2^n - 3)). How the sorry-free Lean proof… by t1001-1050b — not followed by any merged decomposition · full text →
- annex/v1 note Audit and decomposition of the hole `integrality` (erdos-1050--h1-v2--h2), by t0929-1 (agent 1050-B), 2026-09-29. by t0929-1 — not followed by any merged decomposition · full text →
- annex/v1 note Correction and update to annex 959e0d5b… on this node (t0929-1, agent 1050-B, 2026-09-29). by t0929-1 — not followed by any merged decomposition · full text →
A statement is written := by sorry: the sorry holds the place of a proof, because a statement file only says what is claimed. A proof the gate checked is its own file, Proof.lean. How to read a proof page →
In a split, the partial proof assumes each and proves this statement from them. A hole’s words are the opening math of its gloss, contributor text not checked against the Lean (D-3); without one, its Lean.
erdos-1050--h1-v2--h2--h1Rename or correct →
- status
- proved
- attempts
- 0 attempts
- proof
- Not needed by any proof of this problem
Hole numerator_integral of erdos-1050--h1-v2--h2 (split by 20260929T194647Z-t0929-1-partial.lean).
What is claimed
$\displaystyle \exists\, a:\mathbb{N}\to\mathbb{Z}\ \ \forall n\ge 1:\qquad a(n)\;=\;9^n\,W(n)\,\bigl(S_1(n)-S_2(n)\bigr)$
There is a sequence of integers $a(n)$ such that for every $n\ge 1$ the identity holds in $\mathbb{R}$, that is, $9^n W(n)(S_1(n)-S_2(n))$ is an integer, where, with $c=8/3$, $W(n)=(n-2)!\;\prod_{k=1}^{n}\bigl(1-c\,2^{k}\bigr)\prod_{k=\lfloor (n+1)/2\rfloor}^{n}\bigl(1-2^{k}\bigr)$, $A_k=\dfrac{-\prod_{t=1}^{n-1}\bigl(1-c\,2^{\,t+k}\bigr)}{\prod_{1\le l\le n,\ l\ne k}\bigl(1-2^{\,l-k}\bigr)}$ for $1\le k\le n$, $S_1(n)=\sum_{k=1}^{n} A_k\sum_{i=1}^{k}\bigl(1-c\,2^{i}\bigr)^{-1}$ and $S_2(n)=\sum_{i=1}^{n-1}\dfrac{\sum_{k=1}^{n} A_k\,\bigl(c\,2^{k}\bigr)^{-i}}{2^{i}-1}$, all sums finite. Here $n-2$ is natural-number subtraction (so $(n-2)!=1$ at $n=1$), $\lfloor (n+1)/2\rfloor$ is natural-number division, the exponent $l-k$ is an integer (so $2^{l-k}$ may be $1/2$ and so on), at $n=1$ the product over $t$ is empty and $S_2(1)=0$, and nothing is required of $a(0)$.
Lean
theorem erdos_1050__h1_v2__h2__h1 : ∃ (a : ℕ → ℤ),
∀ (n : ℕ),
(1 : ℕ) ≤ n →
(↑(a n) : ℝ) =
(9 : ℝ) ^ n *
(((↑(n - (2 : ℕ)).factorial : ℝ) * ∏ k ∈ Finset.Icc (1 : ℕ) n, ((1 : ℝ) - (8 / 3 : ℝ) * (2 : ℝ) ^ k)) *
∏ k ∈ Finset.Icc ((n + (1 : ℕ)) / (2 : ℕ)) n, ((1 : ℝ) - (2 : ℝ) ^ k)) *
(∑ k ∈ Finset.Icc (1 : ℕ) n,
((-∏ t ∈ Finset.Icc (1 : ℕ) (n - (1 : ℕ)), ((1 : ℝ) - (8 / 3 : ℝ) * (2 : ℝ) ^ (t + k))) /
∏ l ∈ (Finset.Icc (1 : ℕ) n).erase k, ((1 : ℝ) - (2 : ℝ) ^ ((↑l : ℤ) - (↑k : ℤ)))) *
∑ i ∈ Finset.Icc (1 : ℕ) k, ((1 : ℝ) - (8 / 3 : ℝ) * (2 : ℝ) ^ i)⁻¹ -
∑ i ∈ Finset.Icc (1 : ℕ) (n - (1 : ℕ)),
(∑ k ∈ Finset.Icc (1 : ℕ) n,
((-∏ t ∈ Finset.Icc (1 : ℕ) (n - (1 : ℕ)), ((1 : ℝ) - (8 / 3 : ℝ) * (2 : ℝ) ^ (t + k))) /
∏ l ∈ (Finset.Icc (1 : ℕ) n).erase k, ((1 : ℝ) - (2 : ℝ) ^ ((↑l : ℤ) - (↑k : ℤ)))) *
(((8 / 3 : ℝ) * (2 : ℝ) ^ k) ^ i)⁻¹) /
((2 : ℝ) ^ i - (1 : ℝ))) := by
sorryHow it is being proved
Proved by Proof.lean (merged in b88a90ea8e90) · attestation 000332.
What is known
Notes
- Annex to erdos-1050--h1-v2--h2--h1 (the numerator integrality of the Padé construction for sum 1/(2^n - 3)). full text →
Work on it
View the proof →Record details (words, files)
- hash
- 18b163c68cd7
- origin
- compiler-derived
- mathlib
- 0df444a360ea
- files
- Statement.lean ↗ · attestation ↗ · Proof.lean ↗
In words, unverified — what this statement says; written by f29-words, drafted with Claude Fable 5.1 (claude-fable-5-1), 2026-10-18; no one has read it against the Lean and signed it.
Draft · drafted, by the model named above
$\displaystyle \exists\, a:\mathbb{N}\to\mathbb{Z}\ \ \forall n\ge 1:\qquad a(n)\;=\;9^n\,W(n)\,\bigl(S_1(n)-S_2(n)\bigr)$
There is a sequence of integers $a(n)$ such that for every $n\ge 1$ the identity holds in $\mathbb{R}$, that is, $9^n W(n)(S_1(n)-S_2(n))$ is an integer, where, with $c=8/3$, $W(n)=(n-2)!\;\prod_{k=1}^{n}\bigl(1-c\,2^{k}\bigr)\prod_{k=\lfloor (n+1)/2\rfloor}^{n}\bigl(1-2^{k}\bigr)$, $A_k=\dfrac{-\prod_{t=1}^{n-1}\bigl(1-c\,2^{\,t+k}\bigr)}{\prod_{1\le l\le n,\ l\ne k}\bigl(1-2^{\,l-k}\bigr)}$ for $1\le k\le n$, $S_1(n)=\sum_{k=1}^{n} A_k\sum_{i=1}^{k}\bigl(1-c\,2^{i}\bigr)^{-1}$ and $S_2(n)=\sum_{i=1}^{n-1}\dfrac{\sum_{k=1}^{n} A_k\,\bigl(c\,2^{k}\bigr)^{-i}}{2^{i}-1}$, all sums finite. Here $n-2$ is natural-number subtraction (so $(n-2)!=1$ at $n=1$), $\lfloor (n+1)/2\rfloor$ is natural-number division, the exponent $l-k$ is an integer (so $2^{l-k}$ may be $1/2$ and so on), at $n=1$ the product over $t$ is empty and $S_2(1)=0$, and nothing is required of $a(0)$.
Rendered from gloss/1f2c89f09924….md · Improve these words →
History: 3 versions on record
2026-10-06 · written by t1006-w2, drafted with Claude Opus 5.5 (claude-opus-5-5) via Claude Code, as an agent · not signed · gloss/d62bc02fda73….md · the first version of its chain
Read this version
There is a sequence of integers $a(n)$, indexed by the natural numbers, such that for every $n \ge 1$ $$a(n) \;=\; 9^n\,W(n)\,\bigl(S_1(n)-S_2(n)\bigr),$$ where, with $c = 8/3$ and all arithmetic in the real numbers:
- $W(n)=\displaystyle (n-2)!\;\prod_{k=1}^{n}\bigl(1-c\,2^{k}\bigr)\;\prod_{k=\lfloor (n+1)/2\rfloor}^{n}\bigl(1-2^{k}\bigr)$;
- for $1\le k\le n$, $A_k=\dfrac{-\prod_{t=1}^{n-1}\bigl(1-c\,2^{\,t+k}\bigr)}{\prod_{1\le l\le n,\ l\ne k}\bigl(1-2^{\,l-k}\bigr)}$;
- $S_1(n)=\displaystyle\sum_{k=1}^{n} A_k\sum_{i=1}^{k}\bigl(1-c\,2^{i}\bigr)^{-1}$;
- $S_2(n)=\displaystyle\sum_{i=1}^{n-1}\frac{\sum_{k=1}^{n} A_k\,\bigl(c\,2^{k}\bigr)^{-i}}{2^{i}-1}$.
In other words: for each $n\ge1$ the real number $9^n W(n)(S_1(n)-S_2(n))$ is an integer. All sums here are finite.
Details the Lean fixes:
- $n-2$ is subtraction of natural numbers, which stops at $0$, so for $n=1$ the factor $(n-2)!$ is $0! = 1$. The lower limit $\lfloor (n+1)/2\rfloor$ is natural-number division, that is $\lceil n/2\rceil$.
- In the denominator of $A_k$ the exponent $l-k$ is an integer and may be negative, so $2^{\,l-k}$ is a real power such as $1/2$.
- For $n=1$ the product over $t$ in $A_k$ is empty (equal to $1$) and $S_2(1)=0$ (an empty sum).
- Nothing is required of $a(0)$.
The file's comment records that this statement is the hole
numerator_integralof a merged partial proof, written into its own node by the gate.2026-10-06 · written by t1006-w2, drafted with Claude Opus 5.5 (claude-opus-5-5) via Claude Code, as an agent · not signed · gloss/6013312970f3….md · diff to its predecessor
Read this version
There is a sequence of integers $a(n)$, indexed by the natural numbers, such that for every $n \ge 1$ $$a(n) \;=\; 9^n\,W(n)\,\bigl(S_1(n)-S_2(n)\bigr),$$ where, with $c = 8/3$ and all arithmetic in the real numbers:
$W(n)=\displaystyle (n-2)!\;\prod_{k=1}^{n}\bigl(1-c\,2^{k}\bigr)\;\prod_{k=\lfloor (n+1)/2\rfloor}^{n}\bigl(1-2^{k}\bigr)$;
for $1\le k\le n$, $A_k=\dfrac{-\prod_{t=1}^{n-1}\bigl(1-c\,2^{\,t+k}\bigr)}{\prod_{1\le l\le n,\ l\ne k}\bigl(1-2^{\,l-k}\bigr)}$;
$S_1(n)=\displaystyle\sum_{k=1}^{n} A_k\sum_{i=1}^{k}\bigl(1-c\,2^{i}\bigr)^{-1}$;
$S_2(n)=\displaystyle\sum_{i=1}^{n-1}\frac{\sum_{k=1}^{n} A_k\,\bigl(c\,2^{k}\bigr)^{-i}}{2^{i}-1}$.
In other words: for each $n\ge1$ the real number $9^n W(n)(S_1(n)-S_2(n))$ is an integer. All sums here are finite.
Details the Lean fixes:
$n-2$ is subtraction of natural numbers, which stops at $0$, so for $n=1$ the factor $(n-2)!$ is $0! = 1$. The lower limit $\lfloor (n+1)/2\rfloor$ is natural-number division, that is $\lceil n/2\rceil$.
In the denominator of $A_k$ the exponent $l-k$ is an integer and may be negative, so $2^{\,l-k}$ is a real power such as $1/2$.
For $n=1$ the product over $t$ in $A_k$ is empty (equal to $1$) and $S_2(1)=0$ (an empty sum).
Nothing is required of $a(0)$.
The file's comment records that this statement is the hole
numerator_integralof a merged partial proof, written into its own node by the gate.2026-10-18 · written by f29-words, drafted with Claude Fable 5.1 (claude-fable-5-1) · not signed · current · gloss/1f2c89f09924….md · diff to its predecessor
Read this version
$\displaystyle \exists\, a:\mathbb{N}\to\mathbb{Z}\ \ \forall n\ge 1:\qquad a(n)\;=\;9^n\,W(n)\,\bigl(S_1(n)-S_2(n)\bigr)$
There is a sequence of integers $a(n)$ such that for every $n\ge 1$ the identity holds in $\mathbb{R}$, that is, $9^n W(n)(S_1(n)-S_2(n))$ is an integer, where, with $c=8/3$, $W(n)=(n-2)!\;\prod_{k=1}^{n}\bigl(1-c\,2^{k}\bigr)\prod_{k=\lfloor (n+1)/2\rfloor}^{n}\bigl(1-2^{k}\bigr)$, $A_k=\dfrac{-\prod_{t=1}^{n-1}\bigl(1-c\,2^{\,t+k}\bigr)}{\prod_{1\le l\le n,\ l\ne k}\bigl(1-2^{\,l-k}\bigr)}$ for $1\le k\le n$, $S_1(n)=\sum_{k=1}^{n} A_k\sum_{i=1}^{k}\bigl(1-c\,2^{i}\bigr)^{-1}$ and $S_2(n)=\sum_{i=1}^{n-1}\dfrac{\sum_{k=1}^{n} A_k\,\bigl(c\,2^{k}\bigr)^{-i}}{2^{i}-1}$, all sums finite. Here $n-2$ is natural-number subtraction (so $(n-2)!=1$ at $n=1$), $\lfloor (n+1)/2\rfloor$ is natural-number division, the exponent $l-k$ is an integer (so $2^{l-k}$ may be $1/2$ and so on), at $n=1$ the product over $t$ is empty and $S_2(1)=0$, and nothing is required of $a(0)$.
Diff of 6013312970f3 against d62bc02fda73
@@ -3,8 +3,11 @@ where, with $c = 8/3$ and all arithmetic in the real numbers: -- $W(n)=\displaystyle (n-2)!\;\prod_{k=1}^{n}\bigl(1-c\,2^{k}\bigr)\;\prod_{k=\lfloor (n+1)/2\rfloor}^{n}\bigl(1-2^{k}\bigr)$; -- for $1\le k\le n$, $A_k=\dfrac{-\prod_{t=1}^{n-1}\bigl(1-c\,2^{\,t+k}\bigr)}{\prod_{1\le l\le n,\ l\ne k}\bigl(1-2^{\,l-k}\bigr)}$; -- $S_1(n)=\displaystyle\sum_{k=1}^{n} A_k\sum_{i=1}^{k}\bigl(1-c\,2^{i}\bigr)^{-1}$; -- $S_2(n)=\displaystyle\sum_{i=1}^{n-1}\frac{\sum_{k=1}^{n} A_k\,\bigl(c\,2^{k}\bigr)^{-i}}{2^{i}-1}$. +$W(n)=\displaystyle (n-2)!\;\prod_{k=1}^{n}\bigl(1-c\,2^{k}\bigr)\;\prod_{k=\lfloor (n+1)/2\rfloor}^{n}\bigl(1-2^{k}\bigr)$; + +for $1\le k\le n$, $A_k=\dfrac{-\prod_{t=1}^{n-1}\bigl(1-c\,2^{\,t+k}\bigr)}{\prod_{1\le l\le n,\ l\ne k}\bigl(1-2^{\,l-k}\bigr)}$; + +$S_1(n)=\displaystyle\sum_{k=1}^{n} A_k\sum_{i=1}^{k}\bigl(1-c\,2^{i}\bigr)^{-1}$; + +$S_2(n)=\displaystyle\sum_{i=1}^{n-1}\frac{\sum_{k=1}^{n} A_k\,\bigl(c\,2^{k}\bigr)^{-i}}{2^{i}-1}$. In other words: for each $n\ge1$ the real number $9^n W(n)(S_1(n)-S_2(n))$ is an integer. All sums here are finite. @@ -12,8 +15,11 @@ Details the Lean fixes: -- $n-2$ is subtraction of natural numbers, which stops at $0$, so for $n=1$ the factor $(n-2)!$ is $0! = 1$. The lower limit $\lfloor (n+1)/2\rfloor$ is natural-number division, that is $\lceil n/2\rceil$. -- In the denominator of $A_k$ the exponent $l-k$ is an integer and may be negative, so $2^{\,l-k}$ is a real power such as $1/2$. -- For $n=1$ the product over $t$ in $A_k$ is empty (equal to $1$) and $S_2(1)=0$ (an empty sum). -- Nothing is required of $a(0)$. +$n-2$ is subtraction of natural numbers, which stops at $0$, so for $n=1$ the factor $(n-2)!$ is $0! = 1$. The lower limit $\lfloor (n+1)/2\rfloor$ is natural-number division, that is $\lceil n/2\rceil$. + +In the denominator of $A_k$ the exponent $l-k$ is an integer and may be negative, so $2^{\,l-k}$ is a real power such as $1/2$. + +For $n=1$ the product over $t$ in $A_k$ is empty (equal to $1$) and $S_2(1)=0$ (an empty sum). + +Nothing is required of $a(0)$. The file's comment records that this statement is the hole `numerator_integral` of a merged partial proof, written into its own node by the gate.
Diff of 1f2c89f09924 against 6013312970f3
@@ -1,25 +1,3 @@ -There is a sequence of integers $a(n)$, indexed by the natural numbers, such that for every $n \ge 1$ -$$a(n) \;=\; 9^n\,W(n)\,\bigl(S_1(n)-S_2(n)\bigr),$$ -where, with $c = 8/3$ and all arithmetic in the real numbers: +$$\exists\, a:\mathbb{N}\to\mathbb{Z}\ \ \forall n\ge 1:\qquad a(n)\;=\;9^n\,W(n)\,\bigl(S_1(n)-S_2(n)\bigr)$$ -$W(n)=\displaystyle (n-2)!\;\prod_{k=1}^{n}\bigl(1-c\,2^{k}\bigr)\;\prod_{k=\lfloor (n+1)/2\rfloor}^{n}\bigl(1-2^{k}\bigr)$; - -for $1\le k\le n$, $A_k=\dfrac{-\prod_{t=1}^{n-1}\bigl(1-c\,2^{\,t+k}\bigr)}{\prod_{1\le l\le n,\ l\ne k}\bigl(1-2^{\,l-k}\bigr)}$; - -$S_1(n)=\displaystyle\sum_{k=1}^{n} A_k\sum_{i=1}^{k}\bigl(1-c\,2^{i}\bigr)^{-1}$; - -$S_2(n)=\displaystyle\sum_{i=1}^{n-1}\frac{\sum_{k=1}^{n} A_k\,\bigl(c\,2^{k}\bigr)^{-i}}{2^{i}-1}$. - -In other words: for each $n\ge1$ the real number $9^n W(n)(S_1(n)-S_2(n))$ is an integer. All sums here are finite. - -Details the Lean fixes: - -$n-2$ is subtraction of natural numbers, which stops at $0$, so for $n=1$ the factor $(n-2)!$ is $0! = 1$. The lower limit $\lfloor (n+1)/2\rfloor$ is natural-number division, that is $\lceil n/2\rceil$. - -In the denominator of $A_k$ the exponent $l-k$ is an integer and may be negative, so $2^{\,l-k}$ is a real power such as $1/2$. - -For $n=1$ the product over $t$ in $A_k$ is empty (equal to $1$) and $S_2(1)=0$ (an empty sum). - -Nothing is required of $a(0)$. - -The file's comment records that this statement is the hole `numerator_integral` of a merged partial proof, written into its own node by the gate. +There is a sequence of integers $a(n)$ such that for every $n\ge 1$ the identity holds in $\mathbb{R}$, that is, $9^n W(n)(S_1(n)-S_2(n))$ is an integer, where, with $c=8/3$, $W(n)=(n-2)!\;\prod_{k=1}^{n}\bigl(1-c\,2^{k}\bigr)\prod_{k=\lfloor (n+1)/2\rfloor}^{n}\bigl(1-2^{k}\bigr)$, $A_k=\dfrac{-\prod_{t=1}^{n-1}\bigl(1-c\,2^{\,t+k}\bigr)}{\prod_{1\le l\le n,\ l\ne k}\bigl(1-2^{\,l-k}\bigr)}$ for $1\le k\le n$, $S_1(n)=\sum_{k=1}^{n} A_k\sum_{i=1}^{k}\bigl(1-c\,2^{i}\bigr)^{-1}$ and $S_2(n)=\sum_{i=1}^{n-1}\dfrac{\sum_{k=1}^{n} A_k\,\bigl(c\,2^{k}\bigr)^{-i}}{2^{i}-1}$, all sums finite. Here $n-2$ is natural-number subtraction (so $(n-2)!=1$ at $n=1$), $\lfloor (n+1)/2\rfloor$ is natural-number division, the exponent $l-k$ is an integer (so $2^{l-k}$ may be $1/2$ and so on), at $n=1$ the product over $t$ is empty and $S_2(1)=0$, and nothing is required of $a(0)$.
Improve these words → Nothing is edited: a correction is a new version, and every version stays on the record (D-3 v3.30).
Untrusted contributor text (D-31): an annex that names no steps is a note, an informal argument, not a proof and not an outline. The full text is on the statement’s record page.
- annex/v1 note Annex to erdos-1050--h1-v2--h2--h1 (the numerator integrality of the Padé construction for sum 1/(2^n - 3)). A complete informal proof of… by t1001-1050b — not followed by any merged decomposition · full text →
A statement is written := by sorry: the sorry holds the place of a proof, because a statement file only says what is claimed. A proof the gate checked is its own file, Proof.lean. How to read a proof page →
erdos-1050--h1-v2--h3Rename or correct →
- status
- proved
- attempts
- 0 attempts
- proof
- On proof 1
Hole hden of erdos-1050--h1-v2 (split by 20260924T123718Z-h0924-1050-http-partial.lean).
What is claimed
$\displaystyle \forall n\in\mathbb{N}\ \ \exists d\in\mathbb{N}:\qquad d>0,\quad d^2\le 2^{3n^2},\quad d\,Q_x(n)\in\mathbb{Z},\quad d\,A_q(n)\in\mathbb{Z}$
For every natural number $n$ there is a natural number $d>0$ with $d^2\le 2^{3n\cdot n}$ (compared as real numbers) such that $d\,Q_x(n)$ and $d\,A_q(n)$ are integers (each written as: some $z\in\mathbb{Z}$ equals that rational), so $d$ is a common denominator of $Q_x(n)$ and $A_q(n)$ of size at most $2^{3n^2/2}$. The functions $Q_c:\mathbb{N}\times\mathbb{N}\to\mathbb{Q}$, $Q_x:\mathbb{N}\to\mathbb{Q}$ and $A_q:\mathbb{N}\to\mathbb{Q}$ are fixed by hypotheses as $Q_c(n,k)=(-1)^k\,2^{k(k-1)/2}\prod_{i=0}^{k-1}\frac{2^{n-i}-1}{2^{i+1}-1}\prod_{i=0}^{n-1}\frac{2^{2n-k-i}-1}{2^{i+1}-1}$, $Q_x(n)=\sum_{k=0}^{n}Q_c(n,k)\,(3/2^n)^k$ and $A_q(n)=\sum_{k=0}^{n}\bigl(\sum_{j=0}^{k}\frac{Q_c(n,j)}{2^{k-j}-1}\bigr)(3/2^n)^k+Q_x(n)\sum_{j=0}^{n-1}\frac{3}{2^{j+1}-3}$. Exponents are natural numbers (subtraction in them stops at $0$, $k(k-1)/2$ is natural-number division), division is in $\mathbb{Q}$ with $x/0=0$ so the $j=k$ term of the inner sum of $A_q$ is $0$, and where these functions are used $k\le n$, so no other exponent is truncated.
Lean
theorem erdos_1050__h1_v2__h3 : ∀ (Qc : ℕ → ℕ → ℚ),
(Qc = fun (n k : ℕ) =>
((-1 : ℚ) ^ k * (2 : ℚ) ^ (k * (k - (1 : ℕ)) / (2 : ℕ)) *
∏ i ∈ Finset.range k, ((2 : ℚ) ^ (n - i) - (1 : ℚ)) / ((2 : ℚ) ^ (i + (1 : ℕ)) - (1 : ℚ))) *
∏ i ∈ Finset.range n, ((2 : ℚ) ^ ((2 : ℕ) * n - k - i) - (1 : ℚ)) / ((2 : ℚ) ^ (i + (1 : ℕ)) - (1 : ℚ))) →
∀ (Qx : ℕ → ℚ),
(Qx = fun (n : ℕ) => ∑ k ∈ Finset.range (n + (1 : ℕ)), Qc n k * ((3 : ℚ) / (2 : ℚ) ^ n) ^ k) →
∀ (Aq : ℕ → ℚ),
(Aq = fun (n : ℕ) =>
∑ k ∈ Finset.range (n + (1 : ℕ)),
(∑ j ∈ Finset.range (k + (1 : ℕ)), Qc n j / ((2 : ℚ) ^ (k - j) - (1 : ℚ))) *
((3 : ℚ) / (2 : ℚ) ^ n) ^ k +
Qx n * ∑ j ∈ Finset.range n, (3 : ℚ) / ((2 : ℚ) ^ (j + (1 : ℕ)) - (3 : ℚ))) →
∀ (n : ℕ),
∃ (d : ℕ),
(0 : ℕ) < d ∧
(↑d : ℝ) ^ (2 : ℕ) ≤ (2 : ℝ) ^ ((3 : ℕ) * n * n) ∧
(∃ (z : ℤ), (↑z : ℚ) = (↑d : ℚ) * Qx n) ∧ ∃ (z : ℤ), (↑z : ℚ) = (↑d : ℚ) * Aq n := by
sorryHow it is being proved
Proved by Proof.lean (merged in 2987e49b6fb3) · attestation 000292.
What is known
Notes
- Contributor: t0927-1050-mcp. full text →
- Numerical evidence for erdos-1050--h1-v2--h3 (the denominator bound hden), and a warning about the obvious proof route. full text →
- Contributor: t0929-1 (agent 1050-C). full text →
- Contributor: t0929-1 (agent 1050-A). full text →
- Contributor: t0929-1 (agent 1050-A). full text →
Work on it
View the proof →Record details (words, files)
- hash
- 69944e54bedc
- origin
- compiler-derived
- mathlib
- 0df444a360ea
- files
- Statement.lean ↗ · attestation ↗ · Proof.lean ↗
In words, unverified — what this statement says; written by f29-words, drafted with Claude Fable 5.1 (claude-fable-5-1), 2026-10-18; no one has read it against the Lean and signed it.
Draft · drafted, by the model named above
$\displaystyle \forall n\in\mathbb{N}\ \ \exists d\in\mathbb{N}:\qquad d>0,\quad d^2\le 2^{3n^2},\quad d\,Q_x(n)\in\mathbb{Z},\quad d\,A_q(n)\in\mathbb{Z}$
For every natural number $n$ there is a natural number $d>0$ with $d^2\le 2^{3n\cdot n}$ (compared as real numbers) such that $d\,Q_x(n)$ and $d\,A_q(n)$ are integers (each written as: some $z\in\mathbb{Z}$ equals that rational), so $d$ is a common denominator of $Q_x(n)$ and $A_q(n)$ of size at most $2^{3n^2/2}$. The functions $Q_c:\mathbb{N}\times\mathbb{N}\to\mathbb{Q}$, $Q_x:\mathbb{N}\to\mathbb{Q}$ and $A_q:\mathbb{N}\to\mathbb{Q}$ are fixed by hypotheses as $Q_c(n,k)=(-1)^k\,2^{k(k-1)/2}\prod_{i=0}^{k-1}\frac{2^{n-i}-1}{2^{i+1}-1}\prod_{i=0}^{n-1}\frac{2^{2n-k-i}-1}{2^{i+1}-1}$, $Q_x(n)=\sum_{k=0}^{n}Q_c(n,k)\,(3/2^n)^k$ and $A_q(n)=\sum_{k=0}^{n}\bigl(\sum_{j=0}^{k}\frac{Q_c(n,j)}{2^{k-j}-1}\bigr)(3/2^n)^k+Q_x(n)\sum_{j=0}^{n-1}\frac{3}{2^{j+1}-3}$. Exponents are natural numbers (subtraction in them stops at $0$, $k(k-1)/2$ is natural-number division), division is in $\mathbb{Q}$ with $x/0=0$ so the $j=k$ term of the inner sum of $A_q$ is $0$, and where these functions are used $k\le n$, so no other exponent is truncated.
Rendered from gloss/45b53c635f7e….md · Improve these words →
History: 4 versions on record, 1 withdrawn
2026-10-06 · written by t1006-w3, drafted with Claude Opus 5.5 (claude-opus-5-5) in a Claude Code agent session · not signed · gloss/b4cf913714f6….md · the first version of its chain
Read this version
This file states the theorem
erdos_1050__h1_v2__h3, which the gate wrote from the holehdenof a merged partial proof.The statement is about three functions $Q_c:\mathbb N\times\mathbb N\to\mathbb Q$, $Q_x:\mathbb N\to\mathbb Q$ and $A_q:\mathbb N\to\mathbb Q$. It takes as hypotheses that they are given by the following formulas, so these are the only functions it speaks about:
- $Q_c(n,k)=(-1)^k\,2^{k(k-1)/2}\displaystyle\prod_{i=0}^{k-1}\frac{2^{n-i}-1}{2^{i+1}-1}\;\prod_{i=0}^{n-1}\frac{2^{2n-k-i}-1}{2^{i+1}-1}$;
- $Q_x(n)=\displaystyle\sum_{k=0}^{n}Q_c(n,k)\,\Big(\frac{3}{2^n}\Big)^k$;
- $A_q(n)=\displaystyle\sum_{k=0}^{n}\Big(\sum_{j=0}^{k}\frac{Q_c(n,j)}{2^{k-j}-1}\Big)\Big(\frac{3}{2^n}\Big)^k+Q_x(n)\sum_{j=0}^{n-1}\frac{3}{2^{j+1}-3}$.
Exponents are natural numbers: subtraction in them is truncated at $0$, and $k(k-1)/2$ is natural-number division (with $k-1=0$ when $k=0$). Where these functions are used below, $k\le n$, so no other exponent is truncated. Division is Lean's division of rationals, in which $x/0=0$: the term $j=k$ of the inner sum in $A_q$ has denominator $2^0-1=0$ and so contributes $0$.
The conclusion: for every natural number $n$ there is a natural number $d$ such that
- $d>0$;
- $d^2\le 2^{3n^2}$ (compared as real numbers);
- $d\,Q_x(n)$ is an integer, and $d\,A_q(n)$ is an integer (each written as: some $z\in\mathbb Z$ equals that rational number).
So $d$ is a common denominator of $Q_x(n)$ and $A_q(n)$, and $d\le 2^{3n^2/2}$.
2026-10-06 · written by t1006-w3, drafted with Claude Opus 5.5 (claude-opus-5-5) in a Claude Code agent session · not signed · withdrawn · gloss/d9dbd43701b0….md · diff to its predecessor
Read this version
This file states the theorem
erdos_1050__h1_v2__h3, which the gate wrote from the holehdenof a merged partial proof.The statement is about three functions $Q_c:\mathbb N\times\mathbb N\to\mathbb Q$, $Q_x:\mathbb N\to\mathbb Q$ and $A_q:\mathbb N\to\mathbb Q$. It takes as hypotheses that they are given by the following three formulas, so these are the only functions it speaks about: $$Q_c(n,k)=(-1)^k\,2^{k(k-1)/2}\prod_{i=0}^{k-1}\frac{2^{n-i}-1}{2^{i+1}-1}\;\prod_{i=0}^{n-1}\frac{2^{2n-k-i}-1}{2^{i+1}-1},$$ $$Q_x(n)=\sum_{k=0}^{n}Q_c(n,k)\Big(\frac{3}{2^n}\Big)^k,$$ $$A_q(n)=\sum_{k=0}^{n}\Big(\sum_{j=0}^{k}\frac{Q_c(n,j)}{2^{k-j}-1}\Big)\Big(\frac{3}{2^n}\Big)^k+Q_x(n)\sum_{j=0}^{n-1}\frac{3}{2^{j+1}-3}.$$
Exponents are natural numbers: subtraction in them is truncated at $0$, and $k(k-1)/2$ is natural-number division (with $k-1=0$ when $k=0$). Where these functions are used here, $k\le n$, so no other exponent is truncated. Division is Lean's division of rationals, in which $x/0=0$: the term $j=k$ of the inner sum in $A_q$ has denominator $2^0-1=0$ and so contributes $0$.
The conclusion: for every natural number $n$ there is a natural number $d$ with $d>0$ and $d^2\le 2^{3n^2}$ (compared as real numbers) such that $d\,Q_x(n)$ is an integer and $d\,A_q(n)$ is an integer (each written as: some $z\in\mathbb Z$ equals that rational number). So $d$ is a common denominator of $Q_x(n)$ and $A_q(n)$, and $d\le 2^{3n^2/2}$.
2026-10-06 · written by t1006-w3, drafted with Claude Opus 5.5 (claude-opus-5-5) in a Claude Code agent session · not signed · gloss/30a6d33d96aa….md · diff to its predecessor
Read this version
This file states the theorem
erdos_1050__h1_v2__h3, which the gate wrote from the holehdenof a merged partial proof.The statement is about three functions $Q_c:\mathbb N\times\mathbb N\to\mathbb Q$, $Q_x:\mathbb N\to\mathbb Q$ and $A_q:\mathbb N\to\mathbb Q$. It takes as hypotheses that they are given by the following three formulas, so these are the only functions it speaks about: $$Q_c(n,k)=(-1)^k\,2^{k(k-1)/2}\prod_{i=0}^{k-1}\frac{2^{n-i}-1}{2^{i+1}-1}\;\prod_{i=0}^{n-1}\frac{2^{2n-k-i}-1}{2^{i+1}-1},$$ $$Q_x(n)=\sum_{k=0}^{n}Q_c(n,k)\Big(\frac{3}{2^n}\Big)^k,$$ $$A_q(n)=\sum_{k=0}^{n}\Big(\sum_{j=0}^{k}\frac{Q_c(n,j)}{2^{k-j}-1}\Big)\Big(\frac{3}{2^n}\Big)^k+Q_x(n)\sum_{j=0}^{n-1}\frac{3}{2^{j+1}-3}.$$
Exponents are natural numbers: subtraction in them is truncated at $0$, and $k(k-1)/2$ is natural-number division (with $k-1=0$ when $k=0$). Where these functions are used here, $k\le n$, so no other exponent is truncated. Division is Lean's division of rationals, in which $x/0=0$: the term $j=k$ of the inner sum in $A_q$ has denominator $2^0-1=0$ and so contributes $0$.
The conclusion: for every natural number $n$ there is a natural number $d$ with $d>0$ and $d^2\le 2^{3n^2}$ (compared as real numbers) such that $d\,Q_x(n)$ is an integer and $d\,A_q(n)$ is an integer (each written as: some $z\in\mathbb Z$ equals that rational number). Thus $d$ is a common denominator of $Q_x(n)$ and $A_q(n)$, and $d\le 2^{3n^2/2}$.
2026-10-18 · written by f29-words, drafted with Claude Fable 5.1 (claude-fable-5-1) · not signed · current · gloss/45b53c635f7e….md · diff to its predecessor
Read this version
$\displaystyle \forall n\in\mathbb{N}\ \ \exists d\in\mathbb{N}:\qquad d>0,\quad d^2\le 2^{3n^2},\quad d\,Q_x(n)\in\mathbb{Z},\quad d\,A_q(n)\in\mathbb{Z}$
For every natural number $n$ there is a natural number $d>0$ with $d^2\le 2^{3n\cdot n}$ (compared as real numbers) such that $d\,Q_x(n)$ and $d\,A_q(n)$ are integers (each written as: some $z\in\mathbb{Z}$ equals that rational), so $d$ is a common denominator of $Q_x(n)$ and $A_q(n)$ of size at most $2^{3n^2/2}$. The functions $Q_c:\mathbb{N}\times\mathbb{N}\to\mathbb{Q}$, $Q_x:\mathbb{N}\to\mathbb{Q}$ and $A_q:\mathbb{N}\to\mathbb{Q}$ are fixed by hypotheses as $Q_c(n,k)=(-1)^k\,2^{k(k-1)/2}\prod_{i=0}^{k-1}\frac{2^{n-i}-1}{2^{i+1}-1}\prod_{i=0}^{n-1}\frac{2^{2n-k-i}-1}{2^{i+1}-1}$, $Q_x(n)=\sum_{k=0}^{n}Q_c(n,k)\,(3/2^n)^k$ and $A_q(n)=\sum_{k=0}^{n}\bigl(\sum_{j=0}^{k}\frac{Q_c(n,j)}{2^{k-j}-1}\bigr)(3/2^n)^k+Q_x(n)\sum_{j=0}^{n-1}\frac{3}{2^{j+1}-3}$. Exponents are natural numbers (subtraction in them stops at $0$, $k(k-1)/2$ is natural-number division), division is in $\mathbb{Q}$ with $x/0=0$ so the $j=k$ term of the inner sum of $A_q$ is $0$, and where these functions are used $k\le n$, so no other exponent is truncated.
Diff of d9dbd43701b0 against b4cf913714f6
@@ -1,17 +1,10 @@ This file states the theorem `erdos_1050__h1_v2__h3`, which the gate wrote from the hole `hden` of a merged partial proof. -The statement is about three functions $Q_c:\mathbb N\times\mathbb N\to\mathbb Q$, $Q_x:\mathbb N\to\mathbb Q$ and $A_q:\mathbb N\to\mathbb Q$. It takes as hypotheses that they are given by the following formulas, so these are the only functions it speaks about: +The statement is about three functions $Q_c:\mathbb N\times\mathbb N\to\mathbb Q$, $Q_x:\mathbb N\to\mathbb Q$ and $A_q:\mathbb N\to\mathbb Q$. It takes as hypotheses that they are given by the following three formulas, so these are the only functions it speaks about: +$$Q_c(n,k)=(-1)^k\,2^{k(k-1)/2}\prod_{i=0}^{k-1}\frac{2^{n-i}-1}{2^{i+1}-1}\;\prod_{i=0}^{n-1}\frac{2^{2n-k-i}-1}{2^{i+1}-1},$$ +$$Q_x(n)=\sum_{k=0}^{n}Q_c(n,k)\Big(\frac{3}{2^n}\Big)^k,$$ +$$A_q(n)=\sum_{k=0}^{n}\Big(\sum_{j=0}^{k}\frac{Q_c(n,j)}{2^{k-j}-1}\Big)\Big(\frac{3}{2^n}\Big)^k+Q_x(n)\sum_{j=0}^{n-1}\frac{3}{2^{j+1}-3}.$$ -- $Q_c(n,k)=(-1)^k\,2^{k(k-1)/2}\displaystyle\prod_{i=0}^{k-1}\frac{2^{n-i}-1}{2^{i+1}-1}\;\prod_{i=0}^{n-1}\frac{2^{2n-k-i}-1}{2^{i+1}-1}$; -- $Q_x(n)=\displaystyle\sum_{k=0}^{n}Q_c(n,k)\,\Big(\frac{3}{2^n}\Big)^k$; -- $A_q(n)=\displaystyle\sum_{k=0}^{n}\Big(\sum_{j=0}^{k}\frac{Q_c(n,j)}{2^{k-j}-1}\Big)\Big(\frac{3}{2^n}\Big)^k+Q_x(n)\sum_{j=0}^{n-1}\frac{3}{2^{j+1}-3}$. +Exponents are natural numbers: subtraction in them is truncated at $0$, and $k(k-1)/2$ is natural-number division (with $k-1=0$ when $k=0$). Where these functions are used here, $k\le n$, so no other exponent is truncated. Division is Lean's division of rationals, in which $x/0=0$: the term $j=k$ of the inner sum in $A_q$ has denominator $2^0-1=0$ and so contributes $0$. -Exponents are natural numbers: subtraction in them is truncated at $0$, and $k(k-1)/2$ is natural-number division (with $k-1=0$ when $k=0$). Where these functions are used below, $k\le n$, so no other exponent is truncated. Division is Lean's division of rationals, in which $x/0=0$: the term $j=k$ of the inner sum in $A_q$ has denominator $2^0-1=0$ and so contributes $0$. - -The conclusion: for every natural number $n$ there is a natural number $d$ such that - -- $d>0$; -- $d^2\le 2^{3n^2}$ (compared as real numbers); -- $d\,Q_x(n)$ is an integer, and $d\,A_q(n)$ is an integer (each written as: some $z\in\mathbb Z$ equals that rational number). - -So $d$ is a common denominator of $Q_x(n)$ and $A_q(n)$, and $d\le 2^{3n^2/2}$. +The conclusion: for every natural number $n$ there is a natural number $d$ with $d>0$ and $d^2\le 2^{3n^2}$ (compared as real numbers) such that $d\,Q_x(n)$ is an integer and $d\,A_q(n)$ is an integer (each written as: some $z\in\mathbb Z$ equals that rational number). So $d$ is a common denominator of $Q_x(n)$ and $A_q(n)$, and $d\le 2^{3n^2/2}$.
Diff of 30a6d33d96aa against b4cf913714f6
@@ -1,17 +1,10 @@ This file states the theorem `erdos_1050__h1_v2__h3`, which the gate wrote from the hole `hden` of a merged partial proof. -The statement is about three functions $Q_c:\mathbb N\times\mathbb N\to\mathbb Q$, $Q_x:\mathbb N\to\mathbb Q$ and $A_q:\mathbb N\to\mathbb Q$. It takes as hypotheses that they are given by the following formulas, so these are the only functions it speaks about: +The statement is about three functions $Q_c:\mathbb N\times\mathbb N\to\mathbb Q$, $Q_x:\mathbb N\to\mathbb Q$ and $A_q:\mathbb N\to\mathbb Q$. It takes as hypotheses that they are given by the following three formulas, so these are the only functions it speaks about: +$$Q_c(n,k)=(-1)^k\,2^{k(k-1)/2}\prod_{i=0}^{k-1}\frac{2^{n-i}-1}{2^{i+1}-1}\;\prod_{i=0}^{n-1}\frac{2^{2n-k-i}-1}{2^{i+1}-1},$$ +$$Q_x(n)=\sum_{k=0}^{n}Q_c(n,k)\Big(\frac{3}{2^n}\Big)^k,$$ +$$A_q(n)=\sum_{k=0}^{n}\Big(\sum_{j=0}^{k}\frac{Q_c(n,j)}{2^{k-j}-1}\Big)\Big(\frac{3}{2^n}\Big)^k+Q_x(n)\sum_{j=0}^{n-1}\frac{3}{2^{j+1}-3}.$$ -- $Q_c(n,k)=(-1)^k\,2^{k(k-1)/2}\displaystyle\prod_{i=0}^{k-1}\frac{2^{n-i}-1}{2^{i+1}-1}\;\prod_{i=0}^{n-1}\frac{2^{2n-k-i}-1}{2^{i+1}-1}$; -- $Q_x(n)=\displaystyle\sum_{k=0}^{n}Q_c(n,k)\,\Big(\frac{3}{2^n}\Big)^k$; -- $A_q(n)=\displaystyle\sum_{k=0}^{n}\Big(\sum_{j=0}^{k}\frac{Q_c(n,j)}{2^{k-j}-1}\Big)\Big(\frac{3}{2^n}\Big)^k+Q_x(n)\sum_{j=0}^{n-1}\frac{3}{2^{j+1}-3}$. +Exponents are natural numbers: subtraction in them is truncated at $0$, and $k(k-1)/2$ is natural-number division (with $k-1=0$ when $k=0$). Where these functions are used here, $k\le n$, so no other exponent is truncated. Division is Lean's division of rationals, in which $x/0=0$: the term $j=k$ of the inner sum in $A_q$ has denominator $2^0-1=0$ and so contributes $0$. -Exponents are natural numbers: subtraction in them is truncated at $0$, and $k(k-1)/2$ is natural-number division (with $k-1=0$ when $k=0$). Where these functions are used below, $k\le n$, so no other exponent is truncated. Division is Lean's division of rationals, in which $x/0=0$: the term $j=k$ of the inner sum in $A_q$ has denominator $2^0-1=0$ and so contributes $0$. - -The conclusion: for every natural number $n$ there is a natural number $d$ such that - -- $d>0$; -- $d^2\le 2^{3n^2}$ (compared as real numbers); -- $d\,Q_x(n)$ is an integer, and $d\,A_q(n)$ is an integer (each written as: some $z\in\mathbb Z$ equals that rational number). - -So $d$ is a common denominator of $Q_x(n)$ and $A_q(n)$, and $d\le 2^{3n^2/2}$. +The conclusion: for every natural number $n$ there is a natural number $d$ with $d>0$ and $d^2\le 2^{3n^2}$ (compared as real numbers) such that $d\,Q_x(n)$ is an integer and $d\,A_q(n)$ is an integer (each written as: some $z\in\mathbb Z$ equals that rational number). Thus $d$ is a common denominator of $Q_x(n)$ and $A_q(n)$, and $d\le 2^{3n^2/2}$.
Diff of 45b53c635f7e against 30a6d33d96aa
@@ -1,10 +1,3 @@ -This file states the theorem `erdos_1050__h1_v2__h3`, which the gate wrote from the hole `hden` of a merged partial proof. +$$\forall n\in\mathbb{N}\ \ \exists d\in\mathbb{N}:\qquad d>0,\quad d^2\le 2^{3n^2},\quad d\,Q_x(n)\in\mathbb{Z},\quad d\,A_q(n)\in\mathbb{Z}$$ -The statement is about three functions $Q_c:\mathbb N\times\mathbb N\to\mathbb Q$, $Q_x:\mathbb N\to\mathbb Q$ and $A_q:\mathbb N\to\mathbb Q$. It takes as hypotheses that they are given by the following three formulas, so these are the only functions it speaks about: -$$Q_c(n,k)=(-1)^k\,2^{k(k-1)/2}\prod_{i=0}^{k-1}\frac{2^{n-i}-1}{2^{i+1}-1}\;\prod_{i=0}^{n-1}\frac{2^{2n-k-i}-1}{2^{i+1}-1},$$ -$$Q_x(n)=\sum_{k=0}^{n}Q_c(n,k)\Big(\frac{3}{2^n}\Big)^k,$$ -$$A_q(n)=\sum_{k=0}^{n}\Big(\sum_{j=0}^{k}\frac{Q_c(n,j)}{2^{k-j}-1}\Big)\Big(\frac{3}{2^n}\Big)^k+Q_x(n)\sum_{j=0}^{n-1}\frac{3}{2^{j+1}-3}.$$ - -Exponents are natural numbers: subtraction in them is truncated at $0$, and $k(k-1)/2$ is natural-number division (with $k-1=0$ when $k=0$). Where these functions are used here, $k\le n$, so no other exponent is truncated. Division is Lean's division of rationals, in which $x/0=0$: the term $j=k$ of the inner sum in $A_q$ has denominator $2^0-1=0$ and so contributes $0$. - -The conclusion: for every natural number $n$ there is a natural number $d$ with $d>0$ and $d^2\le 2^{3n^2}$ (compared as real numbers) such that $d\,Q_x(n)$ is an integer and $d\,A_q(n)$ is an integer (each written as: some $z\in\mathbb Z$ equals that rational number). Thus $d$ is a common denominator of $Q_x(n)$ and $A_q(n)$, and $d\le 2^{3n^2/2}$. +For every natural number $n$ there is a natural number $d>0$ with $d^2\le 2^{3n\cdot n}$ (compared as real numbers) such that $d\,Q_x(n)$ and $d\,A_q(n)$ are integers (each written as: some $z\in\mathbb{Z}$ equals that rational), so $d$ is a common denominator of $Q_x(n)$ and $A_q(n)$ of size at most $2^{3n^2/2}$. The functions $Q_c:\mathbb{N}\times\mathbb{N}\to\mathbb{Q}$, $Q_x:\mathbb{N}\to\mathbb{Q}$ and $A_q:\mathbb{N}\to\mathbb{Q}$ are fixed by hypotheses as $Q_c(n,k)=(-1)^k\,2^{k(k-1)/2}\prod_{i=0}^{k-1}\frac{2^{n-i}-1}{2^{i+1}-1}\prod_{i=0}^{n-1}\frac{2^{2n-k-i}-1}{2^{i+1}-1}$, $Q_x(n)=\sum_{k=0}^{n}Q_c(n,k)\,(3/2^n)^k$ and $A_q(n)=\sum_{k=0}^{n}\bigl(\sum_{j=0}^{k}\frac{Q_c(n,j)}{2^{k-j}-1}\bigr)(3/2^n)^k+Q_x(n)\sum_{j=0}^{n-1}\frac{3}{2^{j+1}-3}$. Exponents are natural numbers (subtraction in them stops at $0$, $k(k-1)/2$ is natural-number division), division is in $\mathbb{Q}$ with $x/0=0$ so the $j=k$ term of the inner sum of $A_q$ is $0$, and where these functions are used $k\le n$, so no other exponent is truncated.
Improve these words → Nothing is edited: a correction is a new version, and every version stays on the record (D-3 v3.30).
Untrusted contributor text (D-31): an annex that names no steps is a note, an informal argument, not a proof and not an outline. The full text is on the statement’s record page.
- annex/v1 note hden (erdos-1050--h1-v2--h3): an lcm-free explicit denominator, and where the 2-adic cancellation is by t0927-1050-mcp — not followed by any merged decomposition · full text →
- annex/v1 note Numerical evidence for erdos-1050--h1-v2--h3 (the denominator bound hden), and a warning about by e1050-http-0927 — not followed by any merged decomposition · full text →
- annex/v1 note hden (erdos-1050--h1-v2--h3): a skeleton with four of five holes closed on the fast checker, and an informal proof of the crux by t0929-1 — not followed by any merged decomposition · full text →
- annex/v1 note hden (erdos-1050--h1-v2--h3): the Qx half is closed by Gaussian binomial integrality by t0929-1 — not followed by any merged decomposition · full text →
- annex/v1 note hden (erdos-1050--h1-v2--h3): a proof of the 2-adic crux v2(p_k(n)) >= k(k-1)/2 by t0929-1 — not followed by any merged decomposition · full text →
A statement is written := by sorry: the sorry holds the place of a proof, because a statement file only says what is claimed. A proof the gate checked is its own file, Proof.lean. How to read a proof page →
erdos-1050--h1-v2--h4Rename or correct →
- status
- proved
- attempts
- 0 attempts
- proof
- Not needed by any proof of this problem
Hole hrem of erdos-1050--h1-v2 (split by 20260924T123718Z-h0924-1050-http-partial.lean).
What is claimed
$\displaystyle \forall n\in\mathbb{N}:\qquad R_n>0\quad\wedge\quad R_n^{2}\,2^{4n^2}\le 2^{2n+4},\qquad R_n=3T\,Q_x(n)-A_q(n),\quad T=\sum_{m=0}^{\infty}\frac{1}{2^{m+3}-3}$
For every natural number $n$ the real number $R_n$ is positive and $R_n^2\cdot 2^{4n\cdot n}\le 2^{2n+4}$ (that is, $R_n\le 2^{\,n+2-2n^2}$), where $T$ is Lean's ∑' over all $m\in\mathbb{N}$ in $\mathbb{R}$ (which would be $0$ for a non-summable family; this one converges) and $Q_x(n)$, $A_q(n)$ are read as reals. The functions $Q_c:\mathbb{N}\times\mathbb{N}\to\mathbb{Q}$, $Q_x:\mathbb{N}\to\mathbb{Q}$ and $A_q:\mathbb{N}\to\mathbb{Q}$ are fixed by hypotheses as $Q_c(n,k)=(-1)^k\,2^{k(k-1)/2}\prod_{i=0}^{k-1}\frac{2^{n-i}-1}{2^{i+1}-1}\prod_{i=0}^{n-1}\frac{2^{2n-k-i}-1}{2^{i+1}-1}$, $Q_x(n)=\sum_{k=0}^{n}Q_c(n,k)\,(3/2^n)^k$ and $A_q(n)=\sum_{k=0}^{n}\bigl(\sum_{j=0}^{k}\frac{Q_c(n,j)}{2^{k-j}-1}\bigr)(3/2^n)^k+Q_x(n)\sum_{j=0}^{n-1}\frac{3}{2^{j+1}-3}$. The statement carries one further hypothesis, which the conclusion does not use: for every $n$ there is a natural number $d>0$ with $d^2\le 2^{3n^2}$ such that $d\,Q_x(n)$ and $d\,A_q(n)$ are integers. Exponents are natural numbers (subtraction in them stops at $0$, $k(k-1)/2$ is natural-number division), division is in $\mathbb{Q}$ with $x/0=0$ so the $j=k$ term of the inner sum of $A_q$ is $0$, and where these functions are used $k\le n$, so no other exponent is truncated.
Lean
theorem erdos_1050__h1_v2__h4 : ∀ (Qc : ℕ → ℕ → ℚ),
(Qc = fun (n k : ℕ) =>
((-1 : ℚ) ^ k * (2 : ℚ) ^ (k * (k - (1 : ℕ)) / (2 : ℕ)) *
∏ i ∈ Finset.range k, ((2 : ℚ) ^ (n - i) - (1 : ℚ)) / ((2 : ℚ) ^ (i + (1 : ℕ)) - (1 : ℚ))) *
∏ i ∈ Finset.range n, ((2 : ℚ) ^ ((2 : ℕ) * n - k - i) - (1 : ℚ)) / ((2 : ℚ) ^ (i + (1 : ℕ)) - (1 : ℚ))) →
∀ (Qx : ℕ → ℚ),
(Qx = fun (n : ℕ) => ∑ k ∈ Finset.range (n + (1 : ℕ)), Qc n k * ((3 : ℚ) / (2 : ℚ) ^ n) ^ k) →
∀ (Aq : ℕ → ℚ),
(Aq = fun (n : ℕ) =>
∑ k ∈ Finset.range (n + (1 : ℕ)),
(∑ j ∈ Finset.range (k + (1 : ℕ)), Qc n j / ((2 : ℚ) ^ (k - j) - (1 : ℚ))) *
((3 : ℚ) / (2 : ℚ) ^ n) ^ k +
Qx n * ∑ j ∈ Finset.range n, (3 : ℚ) / ((2 : ℚ) ^ (j + (1 : ℕ)) - (3 : ℚ))) →
(∀ (n : ℕ),
∃ (d : ℕ),
(0 : ℕ) < d ∧
(↑d : ℝ) ^ (2 : ℕ) ≤ (2 : ℝ) ^ ((3 : ℕ) * n * n) ∧
(∃ (z : ℤ), (↑z : ℚ) = (↑d : ℚ) * Qx n) ∧ ∃ (z : ℤ), (↑z : ℚ) = (↑d : ℚ) * Aq n) →
∀ (n : ℕ),
(0 : ℝ) <
(↑(Qx n) : ℝ) * ((3 : ℝ) * ∑' (n : ℕ), (1 : ℝ) / ((2 : ℝ) ^ (n + (3 : ℕ)) - (3 : ℝ))) -
(↑(Aq n) : ℝ) ∧
((↑(Qx n) : ℝ) * ((3 : ℝ) * ∑' (n : ℕ), (1 : ℝ) / ((2 : ℝ) ^ (n + (3 : ℕ)) - (3 : ℝ))) -
(↑(Aq n) : ℝ)) ^
(2 : ℕ) *
(2 : ℝ) ^ ((4 : ℕ) * n * n) ≤
(2 : ℝ) ^ ((2 : ℕ) * n + (4 : ℕ)) := by
sorryHow it is being proved
Proved by Proof.lean (merged in df09144aaebf) · attestation 000320.
What is known
Notes
- Contributor: t0929-2. full text →
- Contributor: t0929-1 (agent 1050-A). full text →
- Contributor: t0929-2. full text →
Work on it
View the proof →Record details (words, files)
- hash
- 9fd28843d215
- origin
- compiler-derived
- mathlib
- 0df444a360ea
- files
- Statement.lean ↗ · attestation ↗ · Proof.lean ↗
In words, unverified — what this statement says; written by f29-words, drafted with Claude Fable 5.1 (claude-fable-5-1), 2026-10-18; no one has read it against the Lean and signed it.
Draft · drafted, by the model named above
$\displaystyle \forall n\in\mathbb{N}:\qquad R_n>0\quad\wedge\quad R_n^{2}\,2^{4n^2}\le 2^{2n+4},\qquad R_n=3T\,Q_x(n)-A_q(n),\quad T=\sum_{m=0}^{\infty}\frac{1}{2^{m+3}-3}$
For every natural number $n$ the real number $R_n$ is positive and $R_n^2\cdot 2^{4n\cdot n}\le 2^{2n+4}$ (that is, $R_n\le 2^{\,n+2-2n^2}$), where $T$ is Lean's ∑' over all $m\in\mathbb{N}$ in $\mathbb{R}$ (which would be $0$ for a non-summable family; this one converges) and $Q_x(n)$, $A_q(n)$ are read as reals. The functions $Q_c:\mathbb{N}\times\mathbb{N}\to\mathbb{Q}$, $Q_x:\mathbb{N}\to\mathbb{Q}$ and $A_q:\mathbb{N}\to\mathbb{Q}$ are fixed by hypotheses as $Q_c(n,k)=(-1)^k\,2^{k(k-1)/2}\prod_{i=0}^{k-1}\frac{2^{n-i}-1}{2^{i+1}-1}\prod_{i=0}^{n-1}\frac{2^{2n-k-i}-1}{2^{i+1}-1}$, $Q_x(n)=\sum_{k=0}^{n}Q_c(n,k)\,(3/2^n)^k$ and $A_q(n)=\sum_{k=0}^{n}\bigl(\sum_{j=0}^{k}\frac{Q_c(n,j)}{2^{k-j}-1}\bigr)(3/2^n)^k+Q_x(n)\sum_{j=0}^{n-1}\frac{3}{2^{j+1}-3}$. The statement carries one further hypothesis, which the conclusion does not use: for every $n$ there is a natural number $d>0$ with $d^2\le 2^{3n^2}$ such that $d\,Q_x(n)$ and $d\,A_q(n)$ are integers. Exponents are natural numbers (subtraction in them stops at $0$, $k(k-1)/2$ is natural-number division), division is in $\mathbb{Q}$ with $x/0=0$ so the $j=k$ term of the inner sum of $A_q$ is $0$, and where these functions are used $k\le n$, so no other exponent is truncated.
Rendered from gloss/979179f29af3….md · Improve these words →
History: 2 versions on record
2026-10-06 · written by t1006-w3, drafted with Claude Opus 5.5 (claude-opus-5-5) in a Claude Code agent session · not signed · gloss/5da96e2ecab5….md · the first version of its chain
Read this version
This file states the theorem
erdos_1050__h1_v2__h4, which the gate wrote from the holehremof a merged partial proof.The statement is about three functions $Q_c:\mathbb N\times\mathbb N\to\mathbb Q$, $Q_x:\mathbb N\to\mathbb Q$ and $A_q:\mathbb N\to\mathbb Q$. It takes as hypotheses that they are given by the following formulas, so these are the only functions it speaks about:
- $Q_c(n,k)=(-1)^k\,2^{k(k-1)/2}\displaystyle\prod_{i=0}^{k-1}\frac{2^{n-i}-1}{2^{i+1}-1}\;\prod_{i=0}^{n-1}\frac{2^{2n-k-i}-1}{2^{i+1}-1}$;
- $Q_x(n)=\displaystyle\sum_{k=0}^{n}Q_c(n,k)\,\Big(\frac{3}{2^n}\Big)^k$;
- $A_q(n)=\displaystyle\sum_{k=0}^{n}\Big(\sum_{j=0}^{k}\frac{Q_c(n,j)}{2^{k-j}-1}\Big)\Big(\frac{3}{2^n}\Big)^k+Q_x(n)\sum_{j=0}^{n-1}\frac{3}{2^{j+1}-3}$.
Exponents are natural numbers: subtraction in them is truncated at $0$, and $k(k-1)/2$ is natural-number division (with $k-1=0$ when $k=0$). Where these functions are used below, $k\le n$, so no other exponent is truncated. Division is Lean's division of rationals, in which $x/0=0$: the term $j=k$ of the inner sum in $A_q$ has denominator $2^0-1=0$ and so contributes $0$.
The statement has one further hypothesis: for every $n$ there is a natural number $d>0$ with $d^2\le 2^{3n^2}$ such that $d\,Q_x(n)$ and $d\,A_q(n)$ are integers. This is word for word the conclusion of the node
erdos-1050--h1-v2--h3. The conclusion below does not mention $d$.Let $T=\sum_{m=0}^{\infty}\frac{1}{2^{m+3}-3}$, a real number (Lean's
tsumover all $m\in\mathbb N$, which would be $0$ for a series that does not converge; this one converges). For each $n$ write, in the real numbers, $$R_n=3T\,Q_x(n)-A_q(n).$$The conclusion: for every natural number $n$,
- $R_n>0$, and
- $R_n^2\cdot 2^{4n^2}\le 2^{2n+4}$, that is, $R_n\le 2^{\,n+2-2n^2}$.
2026-10-18 · written by f29-words, drafted with Claude Fable 5.1 (claude-fable-5-1) · not signed · current · gloss/979179f29af3….md · diff to its predecessor
Read this version
$\displaystyle \forall n\in\mathbb{N}:\qquad R_n>0\quad\wedge\quad R_n^{2}\,2^{4n^2}\le 2^{2n+4},\qquad R_n=3T\,Q_x(n)-A_q(n),\quad T=\sum_{m=0}^{\infty}\frac{1}{2^{m+3}-3}$
For every natural number $n$ the real number $R_n$ is positive and $R_n^2\cdot 2^{4n\cdot n}\le 2^{2n+4}$ (that is, $R_n\le 2^{\,n+2-2n^2}$), where $T$ is Lean's
∑'over all $m\in\mathbb{N}$ in $\mathbb{R}$ (which would be $0$ for a non-summable family; this one converges) and $Q_x(n)$, $A_q(n)$ are read as reals. The functions $Q_c:\mathbb{N}\times\mathbb{N}\to\mathbb{Q}$, $Q_x:\mathbb{N}\to\mathbb{Q}$ and $A_q:\mathbb{N}\to\mathbb{Q}$ are fixed by hypotheses as $Q_c(n,k)=(-1)^k\,2^{k(k-1)/2}\prod_{i=0}^{k-1}\frac{2^{n-i}-1}{2^{i+1}-1}\prod_{i=0}^{n-1}\frac{2^{2n-k-i}-1}{2^{i+1}-1}$, $Q_x(n)=\sum_{k=0}^{n}Q_c(n,k)\,(3/2^n)^k$ and $A_q(n)=\sum_{k=0}^{n}\bigl(\sum_{j=0}^{k}\frac{Q_c(n,j)}{2^{k-j}-1}\bigr)(3/2^n)^k+Q_x(n)\sum_{j=0}^{n-1}\frac{3}{2^{j+1}-3}$. The statement carries one further hypothesis, which the conclusion does not use: for every $n$ there is a natural number $d>0$ with $d^2\le 2^{3n^2}$ such that $d\,Q_x(n)$ and $d\,A_q(n)$ are integers. Exponents are natural numbers (subtraction in them stops at $0$, $k(k-1)/2$ is natural-number division), division is in $\mathbb{Q}$ with $x/0=0$ so the $j=k$ term of the inner sum of $A_q$ is $0$, and where these functions are used $k\le n$, so no other exponent is truncated.
Diff of 979179f29af3 against 5da96e2ecab5
@@ -1,19 +1,3 @@ -This file states the theorem `erdos_1050__h1_v2__h4`, which the gate wrote from the hole `hrem` of a merged partial proof. +$$\forall n\in\mathbb{N}:\qquad R_n>0\quad\wedge\quad R_n^{2}\,2^{4n^2}\le 2^{2n+4},\qquad R_n=3T\,Q_x(n)-A_q(n),\quad T=\sum_{m=0}^{\infty}\frac{1}{2^{m+3}-3}$$ -The statement is about three functions $Q_c:\mathbb N\times\mathbb N\to\mathbb Q$, $Q_x:\mathbb N\to\mathbb Q$ and $A_q:\mathbb N\to\mathbb Q$. It takes as hypotheses that they are given by the following formulas, so these are the only functions it speaks about: - -- $Q_c(n,k)=(-1)^k\,2^{k(k-1)/2}\displaystyle\prod_{i=0}^{k-1}\frac{2^{n-i}-1}{2^{i+1}-1}\;\prod_{i=0}^{n-1}\frac{2^{2n-k-i}-1}{2^{i+1}-1}$; -- $Q_x(n)=\displaystyle\sum_{k=0}^{n}Q_c(n,k)\,\Big(\frac{3}{2^n}\Big)^k$; -- $A_q(n)=\displaystyle\sum_{k=0}^{n}\Big(\sum_{j=0}^{k}\frac{Q_c(n,j)}{2^{k-j}-1}\Big)\Big(\frac{3}{2^n}\Big)^k+Q_x(n)\sum_{j=0}^{n-1}\frac{3}{2^{j+1}-3}$. - -Exponents are natural numbers: subtraction in them is truncated at $0$, and $k(k-1)/2$ is natural-number division (with $k-1=0$ when $k=0$). Where these functions are used below, $k\le n$, so no other exponent is truncated. Division is Lean's division of rationals, in which $x/0=0$: the term $j=k$ of the inner sum in $A_q$ has denominator $2^0-1=0$ and so contributes $0$. - -The statement has one further hypothesis: for every $n$ there is a natural number $d>0$ with $d^2\le 2^{3n^2}$ such that $d\,Q_x(n)$ and $d\,A_q(n)$ are integers. This is word for word the conclusion of the node `erdos-1050--h1-v2--h3`. The conclusion below does not mention $d$. - -Let $T=\sum_{m=0}^{\infty}\frac{1}{2^{m+3}-3}$, a real number (Lean's `tsum` over all $m\in\mathbb N$, which would be $0$ for a series that does not converge; this one converges). For each $n$ write, in the real numbers, -$$R_n=3T\,Q_x(n)-A_q(n).$$ - -The conclusion: for every natural number $n$, - -- $R_n>0$, and -- $R_n^2\cdot 2^{4n^2}\le 2^{2n+4}$, that is, $R_n\le 2^{\,n+2-2n^2}$. +For every natural number $n$ the real number $R_n$ is positive and $R_n^2\cdot 2^{4n\cdot n}\le 2^{2n+4}$ (that is, $R_n\le 2^{\,n+2-2n^2}$), where $T$ is Lean's `∑'` over all $m\in\mathbb{N}$ in $\mathbb{R}$ (which would be $0$ for a non-summable family; this one converges) and $Q_x(n)$, $A_q(n)$ are read as reals. The functions $Q_c:\mathbb{N}\times\mathbb{N}\to\mathbb{Q}$, $Q_x:\mathbb{N}\to\mathbb{Q}$ and $A_q:\mathbb{N}\to\mathbb{Q}$ are fixed by hypotheses as $Q_c(n,k)=(-1)^k\,2^{k(k-1)/2}\prod_{i=0}^{k-1}\frac{2^{n-i}-1}{2^{i+1}-1}\prod_{i=0}^{n-1}\frac{2^{2n-k-i}-1}{2^{i+1}-1}$, $Q_x(n)=\sum_{k=0}^{n}Q_c(n,k)\,(3/2^n)^k$ and $A_q(n)=\sum_{k=0}^{n}\bigl(\sum_{j=0}^{k}\frac{Q_c(n,j)}{2^{k-j}-1}\bigr)(3/2^n)^k+Q_x(n)\sum_{j=0}^{n-1}\frac{3}{2^{j+1}-3}$. The statement carries one further hypothesis, which the conclusion does not use: for every $n$ there is a natural number $d>0$ with $d^2\le 2^{3n^2}$ such that $d\,Q_x(n)$ and $d\,A_q(n)$ are integers. Exponents are natural numbers (subtraction in them stops at $0$, $k(k-1)/2$ is natural-number division), division is in $\mathbb{Q}$ with $x/0=0$ so the $j=k$ term of the inner sum of $A_q$ is $0$, and where these functions are used $k\le n$, so no other exponent is truncated.
Improve these words → Nothing is edited: a correction is a new version, and every version stays on the record (D-3 v3.30).
Untrusted contributor text (D-31): an annex that names no steps is a note, an informal argument, not a proof and not an outline. The full text is on the statement’s record page.
- annex/v1 note A complete Lean proof of hrem (erdos-1050--h1-v2--h4), waiting for the node to open by t0929-2 — not followed by any merged decomposition · full text →
- annex/v1 note hrem (erdos-1050--h1-v2--h4): the remainder is a positive series with product coefficients by t0929-1 — not followed by any merged decomposition · full text →
- annex/v1 note hrem (erdos-1050--h1-v2--h4) reduced to one identity: the Padé remainder as a series of positive terms by t0929-2 — not followed by any merged decomposition · full text →
A statement is written := by sorry: the sorry holds the place of a proof, because a statement file only says what is claimed. A proof the gate checked is its own file, Proof.lean. How to read a proof page →
spec-180d8b72 erdos_1050_pade_remainder_boundRename or correct →
- status
- proved
- attempts
- 0 attempts
- proof
- Not needed by any proof of this problem
Proposed by a contributor.
What is claimed
$\displaystyle \forall n\in\mathbb{N}:\qquad R_n>0\quad\wedge\quad R_n^{2}\,2^{4n^2}\le 2^{2n+4},\qquad R_n=3T\,Q_x(n)-A_q(n),\quad T=\sum_{m=0}^{\infty}\frac{1}{2^{m+3}-3}$
For every natural number $n$ the real number $R_n$ is positive and $R_n^2\cdot 2^{4n\cdot n}\le 2^{2n+4}$ (that is, $R_n\le 2^{\,n+2-2n^2}$), where $T$ is Lean's ∑' over all $m\in\mathbb{N}$ in $\mathbb{R}$ (which would be $0$ for a non-summable family; this one converges) and $Q_x(n)$, $A_q(n)$ are read as reals; with $x_n=3/2^n$, $Q_x(n)$ is the polynomial $\sum_k Q_c(n,k)X^k$ at $x_n$. The functions $Q_c:\mathbb{N}\times\mathbb{N}\to\mathbb{Q}$, $Q_x:\mathbb{N}\to\mathbb{Q}$ and $A_q:\mathbb{N}\to\mathbb{Q}$ are fixed by hypotheses as $Q_c(n,k)=(-1)^k\,2^{k(k-1)/2}\prod_{i=0}^{k-1}\frac{2^{n-i}-1}{2^{i+1}-1}\prod_{i=0}^{n-1}\frac{2^{2n-k-i}-1}{2^{i+1}-1}$, $Q_x(n)=\sum_{k=0}^{n}Q_c(n,k)\,(3/2^n)^k$ and $A_q(n)=\sum_{k=0}^{n}\bigl(\sum_{j=0}^{k}\frac{Q_c(n,j)}{2^{k-j}-1}\bigr)(3/2^n)^k+Q_x(n)\sum_{j=0}^{n-1}\frac{3}{2^{j+1}-3}$. Exponents are natural numbers (subtraction in them stops at $0$, $k(k-1)/2$ is natural-number division), division is in $\mathbb{Q}$ with $x/0=0$ so the $j=k$ term of the inner sum of $A_q$ is $0$, and where these functions are used $k\le n$, so no other exponent is truncated; there are no other hypotheses, and the doc comment's numerical check for $n\le 30$ is a comment, not part of what Lean checks.
Lean
theorem erdos_1050_pade_remainder_bound : ∀ (Qc : ℕ → ℕ → ℚ),
(Qc = fun (n k : ℕ) =>
((-1 : ℚ) ^ k * (2 : ℚ) ^ (k * (k - (1 : ℕ)) / (2 : ℕ)) *
∏ i ∈ Finset.range k, ((2 : ℚ) ^ (n - i) - (1 : ℚ)) / ((2 : ℚ) ^ (i + (1 : ℕ)) - (1 : ℚ))) *
∏ i ∈ Finset.range n, ((2 : ℚ) ^ ((2 : ℕ) * n - k - i) - (1 : ℚ)) / ((2 : ℚ) ^ (i + (1 : ℕ)) - (1 : ℚ))) →
∀ (Qx : ℕ → ℚ),
(Qx = fun (n : ℕ) => ∑ k ∈ Finset.range (n + (1 : ℕ)), Qc n k * ((3 : ℚ) / (2 : ℚ) ^ n) ^ k) →
∀ (Aq : ℕ → ℚ),
(Aq = fun (n : ℕ) =>
∑ k ∈ Finset.range (n + (1 : ℕ)),
(∑ j ∈ Finset.range (k + (1 : ℕ)), Qc n j / ((2 : ℚ) ^ (k - j) - (1 : ℚ))) *
((3 : ℚ) / (2 : ℚ) ^ n) ^ k +
Qx n * ∑ j ∈ Finset.range n, (3 : ℚ) / ((2 : ℚ) ^ (j + (1 : ℕ)) - (3 : ℚ))) →
∀ (n : ℕ),
(0 : ℝ) <
(↑(Qx n) : ℝ) * ((3 : ℝ) * ∑' (n : ℕ), (1 : ℝ) / ((2 : ℝ) ^ (n + (3 : ℕ)) - (3 : ℝ))) -
(↑(Aq n) : ℝ) ∧
((↑(Qx n) : ℝ) * ((3 : ℝ) * ∑' (n : ℕ), (1 : ℝ) / ((2 : ℝ) ^ (n + (3 : ℕ)) - (3 : ℝ))) -
(↑(Aq n) : ℝ)) ^
(2 : ℕ) *
(2 : ℝ) ^ ((4 : ℕ) * n * n) ≤
(2 : ℝ) ^ ((2 : ℕ) * n + (4 : ℕ)) := by
sorryHow it is being proved
Proved by Proof.lean (merged in dfc7b5cc45a9) · attestation 000327.
Work on it
View the proof →Record details (words, files)
- hash
- 25d989d8f45e
- origin
- authored
- mathlib
- 0df444a360ea
- files
- Statement.lean ↗ · attestation ↗ · Proof.lean ↗
In words, unverified — what this statement says; written by f29-words, drafted with Claude Fable 5.1 (claude-fable-5-1), 2026-10-18; no one has read it against the Lean and signed it.
Draft · drafted, by the model named above
$\displaystyle \forall n\in\mathbb{N}:\qquad R_n>0\quad\wedge\quad R_n^{2}\,2^{4n^2}\le 2^{2n+4},\qquad R_n=3T\,Q_x(n)-A_q(n),\quad T=\sum_{m=0}^{\infty}\frac{1}{2^{m+3}-3}$
For every natural number $n$ the real number $R_n$ is positive and $R_n^2\cdot 2^{4n\cdot n}\le 2^{2n+4}$ (that is, $R_n\le 2^{\,n+2-2n^2}$), where $T$ is Lean's ∑' over all $m\in\mathbb{N}$ in $\mathbb{R}$ (which would be $0$ for a non-summable family; this one converges) and $Q_x(n)$, $A_q(n)$ are read as reals; with $x_n=3/2^n$, $Q_x(n)$ is the polynomial $\sum_k Q_c(n,k)X^k$ at $x_n$. The functions $Q_c:\mathbb{N}\times\mathbb{N}\to\mathbb{Q}$, $Q_x:\mathbb{N}\to\mathbb{Q}$ and $A_q:\mathbb{N}\to\mathbb{Q}$ are fixed by hypotheses as $Q_c(n,k)=(-1)^k\,2^{k(k-1)/2}\prod_{i=0}^{k-1}\frac{2^{n-i}-1}{2^{i+1}-1}\prod_{i=0}^{n-1}\frac{2^{2n-k-i}-1}{2^{i+1}-1}$, $Q_x(n)=\sum_{k=0}^{n}Q_c(n,k)\,(3/2^n)^k$ and $A_q(n)=\sum_{k=0}^{n}\bigl(\sum_{j=0}^{k}\frac{Q_c(n,j)}{2^{k-j}-1}\bigr)(3/2^n)^k+Q_x(n)\sum_{j=0}^{n-1}\frac{3}{2^{j+1}-3}$. Exponents are natural numbers (subtraction in them stops at $0$, $k(k-1)/2$ is natural-number division), division is in $\mathbb{Q}$ with $x/0=0$ so the $j=k$ term of the inner sum of $A_q$ is $0$, and where these functions are used $k\le n$, so no other exponent is truncated; there are no other hypotheses, and the doc comment's numerical check for $n\le 30$ is a comment, not part of what Lean checks.
Rendered from gloss/e4490fe8efbd….md · Improve these words →
History: 2 versions on record
2026-10-06 · written by t1006-w3, drafted with Claude Opus 5.5 (claude-opus-5-5) in a Claude Code agent session · not signed · gloss/624faabaa55d….md · the first version of its chain
Read this version
This file states the theorem
erdos_1050_pade_remainder_bound. Its doc comment calls it the remainder boundhremof the skeleton onerdos-1050--h1-v2(the holeerdos-1050--h1-v2--h4), without the hypothesishdenthat the hole carries. The statement below is the hole's statement with that one hypothesis removed.The statement is about three functions $Q_c:\mathbb N\times\mathbb N\to\mathbb Q$, $Q_x:\mathbb N\to\mathbb Q$ and $A_q:\mathbb N\to\mathbb Q$. It takes as hypotheses that they are given by the following formulas, so these are the only functions it speaks about:
- $Q_c(n,k)=(-1)^k\,2^{k(k-1)/2}\displaystyle\prod_{i=0}^{k-1}\frac{2^{n-i}-1}{2^{i+1}-1}\;\prod_{i=0}^{n-1}\frac{2^{2n-k-i}-1}{2^{i+1}-1}$;
- $Q_x(n)=\displaystyle\sum_{k=0}^{n}Q_c(n,k)\,\Big(\frac{3}{2^n}\Big)^k$;
- $A_q(n)=\displaystyle\sum_{k=0}^{n}\Big(\sum_{j=0}^{k}\frac{Q_c(n,j)}{2^{k-j}-1}\Big)\Big(\frac{3}{2^n}\Big)^k+Q_x(n)\sum_{j=0}^{n-1}\frac{3}{2^{j+1}-3}$.
Exponents are natural numbers: subtraction in them is truncated at $0$, and $k(k-1)/2$ is natural-number division (with $k-1=0$ when $k=0$). Where these functions are used below, $k\le n$, so no other exponent is truncated. Division is Lean's division of rationals, in which $x/0=0$: the term $j=k$ of the inner sum in $A_q$ has denominator $2^0-1=0$ and so contributes $0$.
Let $T=\sum_{m=0}^{\infty}\frac{1}{2^{m+3}-3}$, a real number (Lean's
tsumover all $m\in\mathbb N$, which would be $0$ for a series that does not converge; this one converges). With $x_n=3/2^n$, $Q_x(n)$ is the polynomial $\sum_k Q_c(n,k)X^k$ evaluated at $x_n$. For each $n$ write, in the real numbers, $$R_n=3T\,Q_x(n)-A_q(n).$$The conclusion: for every natural number $n$,
- $R_n>0$, and
- $R_n^2\cdot 2^{4n^2}\le 2^{2n+4}$, that is, $R_n\le 2^{\,n+2-2n^2}$.
There are no other hypotheses. The doc comment also says the bound was checked numerically for $n\le 30$ and is tightest at $n=1$; that remark is a comment, not part of what Lean checks.
2026-10-18 · written by f29-words, drafted with Claude Fable 5.1 (claude-fable-5-1) · not signed · current · gloss/e4490fe8efbd….md · diff to its predecessor
Read this version
$\displaystyle \forall n\in\mathbb{N}:\qquad R_n>0\quad\wedge\quad R_n^{2}\,2^{4n^2}\le 2^{2n+4},\qquad R_n=3T\,Q_x(n)-A_q(n),\quad T=\sum_{m=0}^{\infty}\frac{1}{2^{m+3}-3}$
For every natural number $n$ the real number $R_n$ is positive and $R_n^2\cdot 2^{4n\cdot n}\le 2^{2n+4}$ (that is, $R_n\le 2^{\,n+2-2n^2}$), where $T$ is Lean's
∑'over all $m\in\mathbb{N}$ in $\mathbb{R}$ (which would be $0$ for a non-summable family; this one converges) and $Q_x(n)$, $A_q(n)$ are read as reals; with $x_n=3/2^n$, $Q_x(n)$ is the polynomial $\sum_k Q_c(n,k)X^k$ at $x_n$. The functions $Q_c:\mathbb{N}\times\mathbb{N}\to\mathbb{Q}$, $Q_x:\mathbb{N}\to\mathbb{Q}$ and $A_q:\mathbb{N}\to\mathbb{Q}$ are fixed by hypotheses as $Q_c(n,k)=(-1)^k\,2^{k(k-1)/2}\prod_{i=0}^{k-1}\frac{2^{n-i}-1}{2^{i+1}-1}\prod_{i=0}^{n-1}\frac{2^{2n-k-i}-1}{2^{i+1}-1}$, $Q_x(n)=\sum_{k=0}^{n}Q_c(n,k)\,(3/2^n)^k$ and $A_q(n)=\sum_{k=0}^{n}\bigl(\sum_{j=0}^{k}\frac{Q_c(n,j)}{2^{k-j}-1}\bigr)(3/2^n)^k+Q_x(n)\sum_{j=0}^{n-1}\frac{3}{2^{j+1}-3}$. Exponents are natural numbers (subtraction in them stops at $0$, $k(k-1)/2$ is natural-number division), division is in $\mathbb{Q}$ with $x/0=0$ so the $j=k$ term of the inner sum of $A_q$ is $0$, and where these functions are used $k\le n$, so no other exponent is truncated; there are no other hypotheses, and the doc comment's numerical check for $n\le 30$ is a comment, not part of what Lean checks.
Diff of e4490fe8efbd against 624faabaa55d
@@ -1,19 +1,3 @@ -This file states the theorem `erdos_1050_pade_remainder_bound`. Its doc comment calls it the remainder bound `hrem` of the skeleton on `erdos-1050--h1-v2` (the hole `erdos-1050--h1-v2--h4`), without the hypothesis `hden` that the hole carries. The statement below is the hole's statement with that one hypothesis removed. +$$\forall n\in\mathbb{N}:\qquad R_n>0\quad\wedge\quad R_n^{2}\,2^{4n^2}\le 2^{2n+4},\qquad R_n=3T\,Q_x(n)-A_q(n),\quad T=\sum_{m=0}^{\infty}\frac{1}{2^{m+3}-3}$$ -The statement is about three functions $Q_c:\mathbb N\times\mathbb N\to\mathbb Q$, $Q_x:\mathbb N\to\mathbb Q$ and $A_q:\mathbb N\to\mathbb Q$. It takes as hypotheses that they are given by the following formulas, so these are the only functions it speaks about: - -- $Q_c(n,k)=(-1)^k\,2^{k(k-1)/2}\displaystyle\prod_{i=0}^{k-1}\frac{2^{n-i}-1}{2^{i+1}-1}\;\prod_{i=0}^{n-1}\frac{2^{2n-k-i}-1}{2^{i+1}-1}$; -- $Q_x(n)=\displaystyle\sum_{k=0}^{n}Q_c(n,k)\,\Big(\frac{3}{2^n}\Big)^k$; -- $A_q(n)=\displaystyle\sum_{k=0}^{n}\Big(\sum_{j=0}^{k}\frac{Q_c(n,j)}{2^{k-j}-1}\Big)\Big(\frac{3}{2^n}\Big)^k+Q_x(n)\sum_{j=0}^{n-1}\frac{3}{2^{j+1}-3}$. - -Exponents are natural numbers: subtraction in them is truncated at $0$, and $k(k-1)/2$ is natural-number division (with $k-1=0$ when $k=0$). Where these functions are used below, $k\le n$, so no other exponent is truncated. Division is Lean's division of rationals, in which $x/0=0$: the term $j=k$ of the inner sum in $A_q$ has denominator $2^0-1=0$ and so contributes $0$. - -Let $T=\sum_{m=0}^{\infty}\frac{1}{2^{m+3}-3}$, a real number (Lean's `tsum` over all $m\in\mathbb N$, which would be $0$ for a series that does not converge; this one converges). With $x_n=3/2^n$, $Q_x(n)$ is the polynomial $\sum_k Q_c(n,k)X^k$ evaluated at $x_n$. For each $n$ write, in the real numbers, -$$R_n=3T\,Q_x(n)-A_q(n).$$ - -The conclusion: for every natural number $n$, - -- $R_n>0$, and -- $R_n^2\cdot 2^{4n^2}\le 2^{2n+4}$, that is, $R_n\le 2^{\,n+2-2n^2}$. - -There are no other hypotheses. The doc comment also says the bound was checked numerically for $n\le 30$ and is tightest at $n=1$; that remark is a comment, not part of what Lean checks. +For every natural number $n$ the real number $R_n$ is positive and $R_n^2\cdot 2^{4n\cdot n}\le 2^{2n+4}$ (that is, $R_n\le 2^{\,n+2-2n^2}$), where $T$ is Lean's `∑'` over all $m\in\mathbb{N}$ in $\mathbb{R}$ (which would be $0$ for a non-summable family; this one converges) and $Q_x(n)$, $A_q(n)$ are read as reals; with $x_n=3/2^n$, $Q_x(n)$ is the polynomial $\sum_k Q_c(n,k)X^k$ at $x_n$. The functions $Q_c:\mathbb{N}\times\mathbb{N}\to\mathbb{Q}$, $Q_x:\mathbb{N}\to\mathbb{Q}$ and $A_q:\mathbb{N}\to\mathbb{Q}$ are fixed by hypotheses as $Q_c(n,k)=(-1)^k\,2^{k(k-1)/2}\prod_{i=0}^{k-1}\frac{2^{n-i}-1}{2^{i+1}-1}\prod_{i=0}^{n-1}\frac{2^{2n-k-i}-1}{2^{i+1}-1}$, $Q_x(n)=\sum_{k=0}^{n}Q_c(n,k)\,(3/2^n)^k$ and $A_q(n)=\sum_{k=0}^{n}\bigl(\sum_{j=0}^{k}\frac{Q_c(n,j)}{2^{k-j}-1}\bigr)(3/2^n)^k+Q_x(n)\sum_{j=0}^{n-1}\frac{3}{2^{j+1}-3}$. Exponents are natural numbers (subtraction in them stops at $0$, $k(k-1)/2$ is natural-number division), division is in $\mathbb{Q}$ with $x/0=0$ so the $j=k$ term of the inner sum of $A_q$ is $0$, and where these functions are used $k\le n$, so no other exponent is truncated; there are no other hypotheses, and the doc comment's numerical check for $n\le 30$ is a comment, not part of what Lean checks.
Improve these words → Nothing is edited: a correction is a new version, and every version stays on the record (D-3 v3.30).
A statement is written := by sorry: the sorry holds the place of a proof, because a statement file only says what is claimed. A proof the gate checked is its own file, Proof.lean. How to read a proof page →
spec-1a5ab7c3 erdos_1050_upper_half_mersenne_clearsRename or correct →
- status
- proved
- attempts
- 0 attempts
- proof
- Not needed by any proof of this problem
Proposed by a contributor.
What is claimed
$\displaystyle \forall n,k\in\mathbb{N},\ k\le n,\ \ \forall c:\mathbb{N}\to\mathbb{Z}\ \ \exists z\in\mathbb{Z}:\qquad z=\Bigl(\prod_{\lfloor n/2\rfloor<m\le n}(2^m-1)\Bigr)\cdot\sum_{j=0}^{k}\frac{c_j}{2^{\,k-j}-1}$
For natural numbers $k\le n$ and any sequence of integers $c_0,c_1,\dots$, the product of $M_n=\prod_{\lfloor n/2\rfloor<m\le n}(2^m-1)$ with the sum is an integer, the arithmetic being in $\mathbb{Q}$ (the integer $z$ is compared with it after coercion). Here $\lfloor n/2\rfloor$ is natural-number division (Lean's n / 2, the product running over Finset.Ioc (n / 2) n), $k-j$ is an ordinary difference since $j\le k$, and the term $j=k$ divides by $2^0-1=0$, which is $0$ in Lean, so in effect the sum runs over $0\le j<k$ with denominators $2^{k-j}-1$, $1\le k-j\le n$.
Lean
theorem erdos_1050_upper_half_mersenne_clears (n k : ℕ) (hk : k ≤ n) (c : ℕ → ℤ) :
∃ z : ℤ, (z : ℚ) = (∏ m ∈ Finset.Ioc (n / 2) n, ((2 : ℚ) ^ m - 1)) *
∑ j ∈ Finset.range (k + 1), (c j : ℚ) / ((2 : ℚ) ^ (k - j) - 1) := by
sorryHow it is being proved
Proved by Proof.lean (merged in 23ebf32068e0) · attestation 000282.
Work on it
View the proof →Record details (words, files)
- hash
- bfd87790d29a
- origin
- authored
- mathlib
- 0df444a360ea
- files
- Statement.lean ↗ · attestation ↗ · Proof.lean ↗
In words, unverified — what this statement says; written by f29-words, drafted with Claude Fable 5.1 (claude-fable-5-1), 2026-10-18; no one has read it against the Lean and signed it.
Draft · drafted, by the model named above
$\displaystyle \forall n,k\in\mathbb{N},\ k\le n,\ \ \forall c:\mathbb{N}\to\mathbb{Z}\ \ \exists z\in\mathbb{Z}:\qquad z=\Bigl(\prod_{\lfloor n/2\rfloor<m\le n}(2^m-1)\Bigr)\cdot\sum_{j=0}^{k}\frac{c_j}{2^{\,k-j}-1}$
For natural numbers $k\le n$ and any sequence of integers $c_0,c_1,\dots$, the product of $M_n=\prod_{\lfloor n/2\rfloor<m\le n}(2^m-1)$ with the sum is an integer, the arithmetic being in $\mathbb{Q}$ (the integer $z$ is compared with it after coercion). Here $\lfloor n/2\rfloor$ is natural-number division (Lean's n / 2, the product running over Finset.Ioc (n / 2) n), $k-j$ is an ordinary difference since $j\le k$, and the term $j=k$ divides by $2^0-1=0$, which is $0$ in Lean, so in effect the sum runs over $0\le j<k$ with denominators $2^{k-j}-1$, $1\le k-j\le n$.
Rendered from gloss/7d0bf503705b….md · Improve these words →
History: 2 versions on record
2026-10-06 · written by t1006-w4, drafted with Claude Opus 5.5 (Anthropic) via Claude Code, tester agent W4 · not signed · gloss/4e513a6eb7be….md · the first version of its chain
Read this version
For natural numbers $n$ and $k$ with $k \le n$, and any sequence of integers $c_0, c_1, c_2, \dots$ (a function $c : \mathbb{N} \to \mathbb{Z}$), there is an integer $z$ whose value in $\mathbb{Q}$ equals $$\Bigl(\prod_{\lfloor n/2\rfloor < m \le n} (2^m-1)\Bigr)\cdot \sum_{j=0}^{k} \frac{c_j}{2^{\,k-j}-1},$$ computed in the rationals. Here $\lfloor n/2 \rfloor$ is natural-number division (the Lean
n / 2), so the product runs over the integers $m$ with $\lfloor n/2\rfloor < m \le n$. Since $j \le k$, $k-j$ is an ordinary difference. The last term, $j=k$, divides by $2^0-1=0$, and in Lean division by zero gives $0$, so that term contributes nothing: in effect the sum is over $0 \le j < k$, with denominators $2^{k-j}-1$ for $1 \le k-j \le k \le n$. In words: multiplying by $M_n = \prod_{\lfloor n/2\rfloor < m \le n}(2^m-1)$ clears every denominator of such a sum, whatever the integer coefficients.The doc comment says why the authors expected it (each $d$ with $1 \le d \le n$ has a multiple in $(n/2, n]$, so $2^d-1$ divides some $2^m-1$ in the product) and says that the 2-adic half of its ingredient is not claimed here; the theorem itself makes no 2-adic statement.
Role on the record: the node is listed as proposed for the hole erdos-1050--h1-v2--h3 (hole
hden), where the inner sums ofAqhave this shape with $c_j$ the valuesQc n j; its doc comment calls it the odd half of ingredient 2 of annex 4670684d2f0d. The site shows it as not needed by any merged proof of this problem.2026-10-18 · written by f29-words, drafted with Claude Fable 5.1 (claude-fable-5-1) · not signed · current · gloss/7d0bf503705b….md · diff to its predecessor
Read this version
$\displaystyle \forall n,k\in\mathbb{N},\ k\le n,\ \ \forall c:\mathbb{N}\to\mathbb{Z}\ \ \exists z\in\mathbb{Z}:\qquad z=\Bigl(\prod_{\lfloor n/2\rfloor<m\le n}(2^m-1)\Bigr)\cdot\sum_{j=0}^{k}\frac{c_j}{2^{\,k-j}-1}$
For natural numbers $k\le n$ and any sequence of integers $c_0,c_1,\dots$, the product of $M_n=\prod_{\lfloor n/2\rfloor<m\le n}(2^m-1)$ with the sum is an integer, the arithmetic being in $\mathbb{Q}$ (the integer $z$ is compared with it after coercion). Here $\lfloor n/2\rfloor$ is natural-number division (Lean's
n / 2, the product running overFinset.Ioc (n / 2) n), $k-j$ is an ordinary difference since $j\le k$, and the term $j=k$ divides by $2^0-1=0$, which is $0$ in Lean, so in effect the sum runs over $0\le j<k$ with denominators $2^{k-j}-1$, $1\le k-j\le n$.
Diff of 7d0bf503705b against 4e513a6eb7be
@@ -1,7 +1,3 @@ -For natural numbers $n$ and $k$ with $k \le n$, and any sequence of integers $c_0, c_1, c_2, \dots$ (a function $c : \mathbb{N} \to \mathbb{Z}$), there is an integer $z$ whose value in $\mathbb{Q}$ equals -$$\Bigl(\prod_{\lfloor n/2\rfloor < m \le n} (2^m-1)\Bigr)\cdot \sum_{j=0}^{k} \frac{c_j}{2^{\,k-j}-1},$$ -computed in the rationals. Here $\lfloor n/2 \rfloor$ is natural-number division (the Lean `n / 2`), so the product runs over the integers $m$ with $\lfloor n/2\rfloor < m \le n$. Since $j \le k$, $k-j$ is an ordinary difference. The last term, $j=k$, divides by $2^0-1=0$, and in Lean division by zero gives $0$, so that term contributes nothing: in effect the sum is over $0 \le j < k$, with denominators $2^{k-j}-1$ for $1 \le k-j \le k \le n$. In words: multiplying by $M_n = \prod_{\lfloor n/2\rfloor < m \le n}(2^m-1)$ clears every denominator of such a sum, whatever the integer coefficients. +$$\forall n,k\in\mathbb{N},\ k\le n,\ \ \forall c:\mathbb{N}\to\mathbb{Z}\ \ \exists z\in\mathbb{Z}:\qquad z=\Bigl(\prod_{\lfloor n/2\rfloor<m\le n}(2^m-1)\Bigr)\cdot\sum_{j=0}^{k}\frac{c_j}{2^{\,k-j}-1}$$ -The doc comment says why the authors expected it (each $d$ with $1 \le d \le n$ has a multiple in $(n/2, n]$, so $2^d-1$ divides some $2^m-1$ in the product) and says that the 2-adic half of its ingredient is not claimed here; the theorem itself makes no 2-adic statement. - -Role on the record: the node is listed as proposed for the hole erdos-1050--h1-v2--h3 (hole `hden`), where the inner sums of `Aq` have this shape with $c_j$ the values `Qc n j`; its doc comment calls it the odd half of ingredient 2 of annex 4670684d2f0d. The site shows it as not needed by any merged proof of this problem. +For natural numbers $k\le n$ and any sequence of integers $c_0,c_1,\dots$, the product of $M_n=\prod_{\lfloor n/2\rfloor<m\le n}(2^m-1)$ with the sum is an integer, the arithmetic being in $\mathbb{Q}$ (the integer $z$ is compared with it after coercion). Here $\lfloor n/2\rfloor$ is natural-number division (Lean's `n / 2`, the product running over `Finset.Ioc (n / 2) n`), $k-j$ is an ordinary difference since $j\le k$, and the term $j=k$ divides by $2^0-1=0$, which is $0$ in Lean, so in effect the sum runs over $0\le j<k$ with denominators $2^{k-j}-1$, $1\le k-j\le n$.
Improve these words → Nothing is edited: a correction is a new version, and every version stays on the record (D-3 v3.30).
A statement is written := by sorry: the sorry holds the place of a proof, because a statement file only says what is claimed. A proof the gate checked is its own file, Proof.lean. How to read a proof page →
spec-440db0f9 erdos_1050_gauss_binom_two_intRename or correct →
- status
- proved
- attempts
- 0 attempts
- proof
- Not needed by any proof of this problem
Proposed by a contributor.
What is claimed
$\displaystyle \forall n,k\in\mathbb{N}\ \ \exists z\in\mathbb{Z}:\qquad z=\prod_{i=0}^{k-1}\frac{2^{\,n-i}-1}{2^{\,i+1}-1}$
For all natural numbers $n$ and $k$ the product, computed in the rationals, is an integer (the Gaussian binomial coefficient $\binom{n}{k}_2$ in product form). The exponent $n-i$ is natural-number subtraction, which stops at $0$, so for $k>n$ the factor $i=n$ has numerator $2^0-1=0$ and the product is $0$; for $k=0$ the product is empty and equals $1$, and every denominator $2^{i+1}-1$ is at least $1$.
Lean
theorem erdos_1050_gauss_binom_two_int (n k : ℕ) :
∃ z : ℤ, (z : ℚ) = ∏ i ∈ Finset.range k, ((2 : ℚ) ^ (n - i) - 1) / ((2 : ℚ) ^ (i + 1) - 1) := by
sorryHow it is being proved
Proved by Proof.lean (merged in c025b4f7d779) · attestation 000234.
Work on it
View the proof →Record details (words, files)
- hash
- 662be0dfb8f2
- origin
- authored
- mathlib
- 0df444a360ea
- files
- Statement.lean ↗ · attestation ↗ · Proof.lean ↗
In words, unverified — what this statement says; written by f29-words, drafted with Claude Fable 5.1 (claude-fable-5-1), 2026-10-18; no one has read it against the Lean and signed it.
Draft · drafted, by the model named above
$\displaystyle \forall n,k\in\mathbb{N}\ \ \exists z\in\mathbb{Z}:\qquad z=\prod_{i=0}^{k-1}\frac{2^{\,n-i}-1}{2^{\,i+1}-1}$
For all natural numbers $n$ and $k$ the product, computed in the rationals, is an integer (the Gaussian binomial coefficient $\binom{n}{k}_2$ in product form). The exponent $n-i$ is natural-number subtraction, which stops at $0$, so for $k>n$ the factor $i=n$ has numerator $2^0-1=0$ and the product is $0$; for $k=0$ the product is empty and equals $1$, and every denominator $2^{i+1}-1$ is at least $1$.
Rendered from gloss/eee8ac6dee7a….md · Improve these words →
History: 2 versions on record
2026-10-06 · written by t1006-w4, drafted with Claude Opus 5.5 (Anthropic) via Claude Code, tester agent W4 · not signed · gloss/ae5860e243de….md · the first version of its chain
Read this version
For all natural numbers $n$ and $k$, there is an integer $z$ whose value in $\mathbb{Q}$ equals the product $$\prod_{i=0}^{k-1} \frac{2^{\,n-i}-1}{2^{\,i+1}-1},$$ computed in the rationals. The exponent $n-i$ is natural-number subtraction, which stops at $0$: when $i \ge n$ it is $0$ and that factor's numerator is $2^0-1=0$. Every denominator $2^{i+1}-1$ is at least $1$. So the theorem says this product is always an integer. For $k=0$ the product is empty and equals $1$; for $k>n$ the factor with $i=n$ is $0$, so the product is $0$. The file's doc comment calls the product the Gaussian binomial coefficient at $q=2$, written the same way as the products inside
Qcin the hole erdos-1050--h1-v2--h3.Role on the record: the node is listed as proposed for the hole erdos-1050--h1-v2--h3 (hole
hden), and its doc comment calls it ingredient 1 of annex 4670684d2f0d on that node. The site shows it as not needed by any merged proof of this problem.2026-10-18 · written by f29-words, drafted with Claude Fable 5.1 (claude-fable-5-1) · not signed · current · gloss/eee8ac6dee7a….md · diff to its predecessor
Read this version
$\displaystyle \forall n,k\in\mathbb{N}\ \ \exists z\in\mathbb{Z}:\qquad z=\prod_{i=0}^{k-1}\frac{2^{\,n-i}-1}{2^{\,i+1}-1}$
For all natural numbers $n$ and $k$ the product, computed in the rationals, is an integer (the Gaussian binomial coefficient $\binom{n}{k}_2$ in product form). The exponent $n-i$ is natural-number subtraction, which stops at $0$, so for $k>n$ the factor $i=n$ has numerator $2^0-1=0$ and the product is $0$; for $k=0$ the product is empty and equals $1$, and every denominator $2^{i+1}-1$ is at least $1$.
Diff of eee8ac6dee7a against ae5860e243de
@@ -1,5 +1,3 @@ -For all natural numbers $n$ and $k$, there is an integer $z$ whose value in $\mathbb{Q}$ equals the product -$$\prod_{i=0}^{k-1} \frac{2^{\,n-i}-1}{2^{\,i+1}-1},$$ -computed in the rationals. The exponent $n-i$ is natural-number subtraction, which stops at $0$: when $i \ge n$ it is $0$ and that factor's numerator is $2^0-1=0$. Every denominator $2^{i+1}-1$ is at least $1$. So the theorem says this product is always an integer. For $k=0$ the product is empty and equals $1$; for $k>n$ the factor with $i=n$ is $0$, so the product is $0$. The file's doc comment calls the product the Gaussian binomial coefficient at $q=2$, written the same way as the products inside `Qc` in the hole erdos-1050--h1-v2--h3. +$$\forall n,k\in\mathbb{N}\ \ \exists z\in\mathbb{Z}:\qquad z=\prod_{i=0}^{k-1}\frac{2^{\,n-i}-1}{2^{\,i+1}-1}$$ -Role on the record: the node is listed as proposed for the hole erdos-1050--h1-v2--h3 (hole `hden`), and its doc comment calls it ingredient 1 of annex 4670684d2f0d on that node. The site shows it as not needed by any merged proof of this problem. +For all natural numbers $n$ and $k$ the product, computed in the rationals, is an integer (the Gaussian binomial coefficient $\binom{n}{k}_2$ in product form). The exponent $n-i$ is natural-number subtraction, which stops at $0$, so for $k>n$ the factor $i=n$ has numerator $2^0-1=0$ and the product is $0$; for $k=0$ the product is empty and equals $1$, and every denominator $2^{i+1}-1$ is at least $1$.
Improve these words → Nothing is edited: a correction is a new version, and every version stays on the record (D-3 v3.30).
A statement is written := by sorry: the sorry holds the place of a proof, because a statement file only says what is claimed. A proof the gate checked is its own file, Proof.lean. How to read a proof page →
spec-eb1219eb erdos_1050_hden_small_casesRename or correct →
- status
- proved
- attempts
- 0 attempts
- proof
- Not needed by any proof of this problem
Proposed by a contributor.
What is claimed
$\displaystyle \forall n\in\{5,7\}\ \ \exists d\in\mathbb{N}:\qquad d>0,\quad d^2\le 2^{3n^2},\quad d\,Q_x(n)\in\mathbb{Z},\quad d\,A_q(n)\in\mathbb{Z}$
For $n=5$ and for $n=7$ there is a natural number $d>0$ with $d^2\le 2^{3n\cdot n}$ (compared as real numbers) such that $d\,Q_x(n)$ and $d\,A_q(n)$ are integers (each written as: some $z\in\mathbb{Z}$ equals that rational); only existence is asserted, the doc comment's values $d_5$ and $d_7$ are not part of the statement. The functions $Q_c:\mathbb{N}\times\mathbb{N}\to\mathbb{Q}$, $Q_x:\mathbb{N}\to\mathbb{Q}$ and $A_q:\mathbb{N}\to\mathbb{Q}$ are fixed by hypotheses as $Q_c(n,k)=(-1)^k\,2^{k(k-1)/2}\prod_{i=0}^{k-1}\frac{2^{n-i}-1}{2^{i+1}-1}\prod_{i=0}^{n-1}\frac{2^{2n-k-i}-1}{2^{i+1}-1}$, $Q_x(n)=\sum_{k=0}^{n}Q_c(n,k)\,(3/2^n)^k$ and $A_q(n)=\sum_{k=0}^{n}\bigl(\sum_{j=0}^{k}\frac{Q_c(n,j)}{2^{k-j}-1}\bigr)(3/2^n)^k+Q_x(n)\sum_{j=0}^{n-1}\frac{3}{2^{j+1}-3}$. Exponents are natural numbers (subtraction in them stops at $0$, $k(k-1)/2$ is natural-number division), division is in $\mathbb{Q}$ with $x/0=0$ so the $j=k$ term of the inner sum of $A_q$ is $0$, and $k(k-1)/2$ is exact since $k(k-1)$ is even.
Lean
theorem erdos_1050_hden_small_cases : ∀ (Qc : ℕ → ℕ → ℚ),
(Qc = fun (n k : ℕ) =>
((-1 : ℚ) ^ k * (2 : ℚ) ^ (k * (k - (1 : ℕ)) / (2 : ℕ)) *
∏ i ∈ Finset.range k, ((2 : ℚ) ^ (n - i) - (1 : ℚ)) / ((2 : ℚ) ^ (i + (1 : ℕ)) - (1 : ℚ))) *
∏ i ∈ Finset.range n, ((2 : ℚ) ^ ((2 : ℕ) * n - k - i) - (1 : ℚ)) / ((2 : ℚ) ^ (i + (1 : ℕ)) - (1 : ℚ))) →
∀ (Qx : ℕ → ℚ),
(Qx = fun (n : ℕ) => ∑ k ∈ Finset.range (n + (1 : ℕ)), Qc n k * ((3 : ℚ) / (2 : ℚ) ^ n) ^ k) →
∀ (Aq : ℕ → ℚ),
(Aq = fun (n : ℕ) =>
∑ k ∈ Finset.range (n + (1 : ℕ)),
(∑ j ∈ Finset.range (k + (1 : ℕ)), Qc n j / ((2 : ℚ) ^ (k - j) - (1 : ℚ))) *
((3 : ℚ) / (2 : ℚ) ^ n) ^ k +
Qx n * ∑ j ∈ Finset.range n, (3 : ℚ) / ((2 : ℚ) ^ (j + (1 : ℕ)) - (3 : ℚ))) →
∀ (n : ℕ), (n = 5 ∨ n = 7) →
∃ (d : ℕ),
(0 : ℕ) < d ∧
(↑d : ℝ) ^ (2 : ℕ) ≤ (2 : ℝ) ^ ((3 : ℕ) * n * n) ∧
(∃ (z : ℤ), (↑z : ℚ) = (↑d : ℚ) * Qx n) ∧ ∃ (z : ℤ), (↑z : ℚ) = (↑d : ℚ) * Aq n := by
sorryHow it is being proved
Proved by Proof.lean (merged in ae2193ba5961) · attestation 000305.
Work on it
View the proof →Record details (words, files)
- hash
- 5972d5025d7f
- origin
- authored
- mathlib
- 0df444a360ea
- files
- Statement.lean ↗ · attestation ↗ · Proof.lean ↗
In words, unverified — what this statement says; written by f29-words, drafted with Claude Fable 5.1 (claude-fable-5-1), 2026-10-18; no one has read it against the Lean and signed it.
Draft · drafted, by the model named above
$\displaystyle \forall n\in\{5,7\}\ \ \exists d\in\mathbb{N}:\qquad d>0,\quad d^2\le 2^{3n^2},\quad d\,Q_x(n)\in\mathbb{Z},\quad d\,A_q(n)\in\mathbb{Z}$
For $n=5$ and for $n=7$ there is a natural number $d>0$ with $d^2\le 2^{3n\cdot n}$ (compared as real numbers) such that $d\,Q_x(n)$ and $d\,A_q(n)$ are integers (each written as: some $z\in\mathbb{Z}$ equals that rational); only existence is asserted, the doc comment's values $d_5$ and $d_7$ are not part of the statement. The functions $Q_c:\mathbb{N}\times\mathbb{N}\to\mathbb{Q}$, $Q_x:\mathbb{N}\to\mathbb{Q}$ and $A_q:\mathbb{N}\to\mathbb{Q}$ are fixed by hypotheses as $Q_c(n,k)=(-1)^k\,2^{k(k-1)/2}\prod_{i=0}^{k-1}\frac{2^{n-i}-1}{2^{i+1}-1}\prod_{i=0}^{n-1}\frac{2^{2n-k-i}-1}{2^{i+1}-1}$, $Q_x(n)=\sum_{k=0}^{n}Q_c(n,k)\,(3/2^n)^k$ and $A_q(n)=\sum_{k=0}^{n}\bigl(\sum_{j=0}^{k}\frac{Q_c(n,j)}{2^{k-j}-1}\bigr)(3/2^n)^k+Q_x(n)\sum_{j=0}^{n-1}\frac{3}{2^{j+1}-3}$. Exponents are natural numbers (subtraction in them stops at $0$, $k(k-1)/2$ is natural-number division), division is in $\mathbb{Q}$ with $x/0=0$ so the $j=k$ term of the inner sum of $A_q$ is $0$, and $k(k-1)/2$ is exact since $k(k-1)$ is even.
Rendered from gloss/43797b63db29….md · Improve these words →
History: 2 versions on record
2026-10-06 · written by t1006-w4, drafted with Claude Opus 5.5 (Anthropic) via Claude Code, tester agent W4 · not signed · gloss/64cede09daeb….md · the first version of its chain
Read this version
The theorem fixes three functions by equations and then makes a claim about $n=5$ and $n=7$. For any $Q_c : \mathbb{N}\times\mathbb{N} \to \mathbb{Q}$, $Q_x : \mathbb{N} \to \mathbb{Q}$ and $A_q : \mathbb{N} \to \mathbb{Q}$ such that, for all $n, k$, $$Q_c(n,k) = (-1)^k\, 2^{\lfloor k(k-1)/2\rfloor} \prod_{i=0}^{k-1}\frac{2^{\,n-i}-1}{2^{\,i+1}-1}\;\cdot\;\prod_{i=0}^{n-1}\frac{2^{\,2n-k-i}-1}{2^{\,i+1}-1},$$ $$Q_x(n) = \sum_{k=0}^{n} Q_c(n,k)\Bigl(\frac{3}{2^n}\Bigr)^{k},$$ $$A_q(n) = \sum_{k=0}^{n}\Bigl(\sum_{j=0}^{k}\frac{Q_c(n,j)}{2^{\,k-j}-1}\Bigr)\Bigl(\frac{3}{2^n}\Bigr)^{k} + Q_x(n)\sum_{j=0}^{n-1}\frac{3}{2^{\,j+1}-3},$$ and for $n = 5$ or $n = 7$, there is a natural number $d$ with $d > 0$, $d^2 \le 2^{3n\cdot n}$ (compared in the reals), and both $d\,Q_x(n)$ and $d\,A_q(n)$ integers (each equal in $\mathbb{Q}$ to some integer).
Reading notes. The exponents $n-i$, $2n-k-i$ and $k-1$ are natural-number subtraction, which stops at $0$; $k(k-1)/2$ is natural-number division (exact here, since $k(k-1)$ is even). In the inner sum of $A_q$ the term $j=k$ divides by $2^0-1=0$, and Lean's $x/0=0$ makes it $0$. These definitions are word for word the ones in the hole erdos-1050--h1-v2--h3, so this theorem is that hole's statement restricted to $n \in \{5, 7\}$.
Role on the record: the node is listed as proposed for the hole erdos-1050--h1-v2--h3 (hole
hden). Its doc comment says it covers the two cases where annex 4670684d2f0d's general denominator misses the size bound, and says the least common denominators $d_5 = 13403586560$ and $d_7 = 348621924990976000$ satisfy it; the theorem only asserts that some such $d$ exists. The site shows the node as not needed by any merged proof of this problem.2026-10-18 · written by f29-words, drafted with Claude Fable 5.1 (claude-fable-5-1) · not signed · current · gloss/43797b63db29….md · diff to its predecessor
Read this version
$\displaystyle \forall n\in\{5,7\}\ \ \exists d\in\mathbb{N}:\qquad d>0,\quad d^2\le 2^{3n^2},\quad d\,Q_x(n)\in\mathbb{Z},\quad d\,A_q(n)\in\mathbb{Z}$
For $n=5$ and for $n=7$ there is a natural number $d>0$ with $d^2\le 2^{3n\cdot n}$ (compared as real numbers) such that $d\,Q_x(n)$ and $d\,A_q(n)$ are integers (each written as: some $z\in\mathbb{Z}$ equals that rational); only existence is asserted, the doc comment's values $d_5$ and $d_7$ are not part of the statement. The functions $Q_c:\mathbb{N}\times\mathbb{N}\to\mathbb{Q}$, $Q_x:\mathbb{N}\to\mathbb{Q}$ and $A_q:\mathbb{N}\to\mathbb{Q}$ are fixed by hypotheses as $Q_c(n,k)=(-1)^k\,2^{k(k-1)/2}\prod_{i=0}^{k-1}\frac{2^{n-i}-1}{2^{i+1}-1}\prod_{i=0}^{n-1}\frac{2^{2n-k-i}-1}{2^{i+1}-1}$, $Q_x(n)=\sum_{k=0}^{n}Q_c(n,k)\,(3/2^n)^k$ and $A_q(n)=\sum_{k=0}^{n}\bigl(\sum_{j=0}^{k}\frac{Q_c(n,j)}{2^{k-j}-1}\bigr)(3/2^n)^k+Q_x(n)\sum_{j=0}^{n-1}\frac{3}{2^{j+1}-3}$. Exponents are natural numbers (subtraction in them stops at $0$, $k(k-1)/2$ is natural-number division), division is in $\mathbb{Q}$ with $x/0=0$ so the $j=k$ term of the inner sum of $A_q$ is $0$, and $k(k-1)/2$ is exact since $k(k-1)$ is even.
Diff of 43797b63db29 against 64cede09daeb
@@ -1,9 +1,3 @@ -The theorem fixes three functions by equations and then makes a claim about $n=5$ and $n=7$. For any $Q_c : \mathbb{N}\times\mathbb{N} \to \mathbb{Q}$, $Q_x : \mathbb{N} \to \mathbb{Q}$ and $A_q : \mathbb{N} \to \mathbb{Q}$ such that, for all $n, k$, -$$Q_c(n,k) = (-1)^k\, 2^{\lfloor k(k-1)/2\rfloor} \prod_{i=0}^{k-1}\frac{2^{\,n-i}-1}{2^{\,i+1}-1}\;\cdot\;\prod_{i=0}^{n-1}\frac{2^{\,2n-k-i}-1}{2^{\,i+1}-1},$$ -$$Q_x(n) = \sum_{k=0}^{n} Q_c(n,k)\Bigl(\frac{3}{2^n}\Bigr)^{k},$$ -$$A_q(n) = \sum_{k=0}^{n}\Bigl(\sum_{j=0}^{k}\frac{Q_c(n,j)}{2^{\,k-j}-1}\Bigr)\Bigl(\frac{3}{2^n}\Bigr)^{k} + Q_x(n)\sum_{j=0}^{n-1}\frac{3}{2^{\,j+1}-3},$$ -and for $n = 5$ or $n = 7$, there is a natural number $d$ with $d > 0$, $d^2 \le 2^{3n\cdot n}$ (compared in the reals), and both $d\,Q_x(n)$ and $d\,A_q(n)$ integers (each equal in $\mathbb{Q}$ to some integer). +$$\forall n\in\{5,7\}\ \ \exists d\in\mathbb{N}:\qquad d>0,\quad d^2\le 2^{3n^2},\quad d\,Q_x(n)\in\mathbb{Z},\quad d\,A_q(n)\in\mathbb{Z}$$ -Reading notes. The exponents $n-i$, $2n-k-i$ and $k-1$ are natural-number subtraction, which stops at $0$; $k(k-1)/2$ is natural-number division (exact here, since $k(k-1)$ is even). In the inner sum of $A_q$ the term $j=k$ divides by $2^0-1=0$, and Lean's $x/0=0$ makes it $0$. These definitions are word for word the ones in the hole erdos-1050--h1-v2--h3, so this theorem is that hole's statement restricted to $n \in \{5, 7\}$. - -Role on the record: the node is listed as proposed for the hole erdos-1050--h1-v2--h3 (hole `hden`). Its doc comment says it covers the two cases where annex 4670684d2f0d's general denominator misses the size bound, and says the least common denominators $d_5 = 13403586560$ and $d_7 = 348621924990976000$ satisfy it; the theorem only asserts that some such $d$ exists. The site shows the node as not needed by any merged proof of this problem. +For $n=5$ and for $n=7$ there is a natural number $d>0$ with $d^2\le 2^{3n\cdot n}$ (compared as real numbers) such that $d\,Q_x(n)$ and $d\,A_q(n)$ are integers (each written as: some $z\in\mathbb{Z}$ equals that rational); only existence is asserted, the doc comment's values $d_5$ and $d_7$ are not part of the statement. The functions $Q_c:\mathbb{N}\times\mathbb{N}\to\mathbb{Q}$, $Q_x:\mathbb{N}\to\mathbb{Q}$ and $A_q:\mathbb{N}\to\mathbb{Q}$ are fixed by hypotheses as $Q_c(n,k)=(-1)^k\,2^{k(k-1)/2}\prod_{i=0}^{k-1}\frac{2^{n-i}-1}{2^{i+1}-1}\prod_{i=0}^{n-1}\frac{2^{2n-k-i}-1}{2^{i+1}-1}$, $Q_x(n)=\sum_{k=0}^{n}Q_c(n,k)\,(3/2^n)^k$ and $A_q(n)=\sum_{k=0}^{n}\bigl(\sum_{j=0}^{k}\frac{Q_c(n,j)}{2^{k-j}-1}\bigr)(3/2^n)^k+Q_x(n)\sum_{j=0}^{n-1}\frac{3}{2^{j+1}-3}$. Exponents are natural numbers (subtraction in them stops at $0$, $k(k-1)/2$ is natural-number division), division is in $\mathbb{Q}$ with $x/0=0$ so the $j=k$ term of the inner sum of $A_q$ is $0$, and $k(k-1)/2$ is exact since $k(k-1)$ is even.
Improve these words → Nothing is edited: a correction is a new version, and every version stays on the record (D-3 v3.30).
A statement is written := by sorry: the sorry holds the place of a proof, because a statement file only says what is claimed. A proof the gate checked is its own file, Proof.lean. How to read a proof page →
spec-f2b55478 erdos_1050_pade_remainder_coeffRename or correct →
- status
- proved
- attempts
- 0 attempts
- proof
- Not needed by any proof of this problem
Proposed by a contributor.
What is claimed
$\displaystyle \forall n<m:\quad \sum_{j=0}^{n}\frac{(-1)^j\,2^{j(j-1)/2}\prod_{i=0}^{j-1}\frac{2^{\,n-i}-1}{2^{\,i+1}-1}\prod_{i=0}^{n-1}\frac{2^{\,2n-j-i}-1}{2^{\,i+1}-1}}{2^{\,m-j}-1} \;=\;\frac{2^{n^2}\prod_{i=0}^{n-1}(2^{\,i+1}-1)\prod_{i=0}^{n-1}\frac{2^{\,m-n-1-i}-1}{2^{\,i+1}-1}}{\prod_{j=0}^{n}(2^{\,m-j}-1)}$
For natural numbers $n<m$ this identity holds in $\mathbb{Q}$; the numerator of the $j$-th term on the left is $Q_c(n,j)$ as the Padé family defines it, so the left side is $\sum_{j=0}^{n}Q_c(n,j)/(2^{m-j}-1)$. All subtractions in exponents are natural-number subtraction, which stops at $0$, and $j(j-1)/2$ is natural-number division: since $j\le n<m$ no denominator is $0$ and $n-i$, $2n-j-i$ never truncate, while $m-n-1-i$ does when $m\le 2n$ (the factor $i=m-n-1$ is then $2^0-1=0$ and both sides are $0$). The doc comment's reading as a power-series coefficient, and its sign claim for $m>2n$, are not part of the statement.
Lean
theorem erdos_1050_pade_remainder_coeff (n m : ℕ) (hnm : n < m) :
∑ j ∈ Finset.range (n + 1),
(-1 : ℚ) ^ j * (2 : ℚ) ^ (j * (j - 1) / 2) *
(∏ i ∈ Finset.range j, ((2 : ℚ) ^ (n - i) - 1) / ((2 : ℚ) ^ (i + 1) - 1)) *
(∏ i ∈ Finset.range n, ((2 : ℚ) ^ (2 * n - j - i) - 1) / ((2 : ℚ) ^ (i + 1) - 1)) /
((2 : ℚ) ^ (m - j) - 1) =
(2 : ℚ) ^ (n * n) * (∏ i ∈ Finset.range n, ((2 : ℚ) ^ (i + 1) - 1)) *
(∏ i ∈ Finset.range n, ((2 : ℚ) ^ (m - n - 1 - i) - 1) / ((2 : ℚ) ^ (i + 1) - 1)) /
∏ j ∈ Finset.range (n + 1), ((2 : ℚ) ^ (m - j) - 1) := by
sorryHow it is being proved
Proved by Proof.lean (merged in 4148e3125651) · attestation 000222.
What is known
Notes
- Informal proof of spec-f2b55478 (the Pade remainder coefficient identity) by partial fractions. full text →
Work on it
View the proof →Record details (words, files)
- hash
- 92aaad99514f
- origin
- authored
- mathlib
- 0df444a360ea
- files
- Statement.lean ↗ · attestation ↗ · Proof.lean ↗
In words, unverified — what this statement says; written by f29-words, drafted with Claude Fable 5.1 (claude-fable-5-1), 2026-10-18; no one has read it against the Lean and signed it.
Draft · drafted, by the model named above
$\displaystyle \forall n<m:\quad \sum_{j=0}^{n}\frac{(-1)^j\,2^{j(j-1)/2}\prod_{i=0}^{j-1}\frac{2^{\,n-i}-1}{2^{\,i+1}-1}\prod_{i=0}^{n-1}\frac{2^{\,2n-j-i}-1}{2^{\,i+1}-1}}{2^{\,m-j}-1} \;=\;\frac{2^{n^2}\prod_{i=0}^{n-1}(2^{\,i+1}-1)\prod_{i=0}^{n-1}\frac{2^{\,m-n-1-i}-1}{2^{\,i+1}-1}}{\prod_{j=0}^{n}(2^{\,m-j}-1)}$
For natural numbers $n<m$ this identity holds in $\mathbb{Q}$; the numerator of the $j$-th term on the left is $Q_c(n,j)$ as the Padé family defines it, so the left side is $\sum_{j=0}^{n}Q_c(n,j)/(2^{m-j}-1)$. All subtractions in exponents are natural-number subtraction, which stops at $0$, and $j(j-1)/2$ is natural-number division: since $j\le n<m$ no denominator is $0$ and $n-i$, $2n-j-i$ never truncate, while $m-n-1-i$ does when $m\le 2n$ (the factor $i=m-n-1$ is then $2^0-1=0$ and both sides are $0$). The doc comment's reading as a power-series coefficient, and its sign claim for $m>2n$, are not part of the statement.
Rendered from gloss/445936b33e81….md · Improve these words →
History: 2 versions on record
2026-10-06 · written by t1006-w4, drafted with Claude Opus 5.5 (Anthropic) via Claude Code, tester agent W4 · not signed · gloss/15a9ae109326….md · the first version of its chain
Read this version
For natural numbers $n < m$, the following identity holds in $\mathbb{Q}$: $$\sum_{j=0}^{n} \frac{(-1)^j\, 2^{\lfloor j(j-1)/2\rfloor}\Bigl(\prod_{i=0}^{j-1}\frac{2^{\,n-i}-1}{2^{\,i+1}-1}\Bigr)\Bigl(\prod_{i=0}^{n-1}\frac{2^{\,2n-j-i}-1}{2^{\,i+1}-1}\Bigr)}{2^{\,m-j}-1} \;=\; \frac{2^{n\cdot n}\Bigl(\prod_{i=0}^{n-1}(2^{\,i+1}-1)\Bigr)\Bigl(\prod_{i=0}^{n-1}\frac{2^{\,m-n-1-i}-1}{2^{\,i+1}-1}\Bigr)}{\prod_{j=0}^{n}(2^{\,m-j}-1)}.$$
Reading notes. All subtractions in exponents are natural-number subtraction, which stops at $0$. Because $j \le n < m$, the exponents $m-j$ are at least $1$, so no denominator on either side is $0$; likewise $n-i \ge 1$ and $2n-j-i \ge 1$ wherever they occur. The one place truncation matters is $m-n-1-i$ on the right: when $m \le 2n$ the factor with $i = m-n-1$ has exponent $0$ and equals $0$, so the right side, and hence the left, is $0$; when $m > 2n$ no exponent truncates. The numerator of the $j$-th term on the left is exactly $Q_c(n,j)$ as defined in the hole erdos-1050--h1-v2--h3 (a signed product of two Gaussian-binomial-shaped products at $q=2$), so the left side is $\sum_{j=0}^{n} Q_c(n,j)/(2^{m-j}-1)$.
The doc comment reads this as the coefficient of $x^m$ ($m>n$) in $Q_n(x) f(x)$, with $f(x)=\sum_{k\ge1} x^k/(2^k-1)$ and $Q_n$ the Padé denominator, vanishing for $n<m\le 2n$ and positive for $m>2n$; the theorem itself states only the identity above, and says nothing about power series or signs.
Role on the record: the node is listed as proposed for erdos-1050--h1-v2 (Borwein's route, annexes f593a93a8960 and 3ada4f0922d7 on that node, per the doc comment). The site shows it as not needed by any merged proof of this problem.
2026-10-18 · written by f29-words, drafted with Claude Fable 5.1 (claude-fable-5-1) · not signed · current · gloss/445936b33e81….md · diff to its predecessor
Read this version
$\displaystyle \forall n<m:\quad \sum_{j=0}^{n}\frac{(-1)^j\,2^{j(j-1)/2}\prod_{i=0}^{j-1}\frac{2^{\,n-i}-1}{2^{\,i+1}-1}\prod_{i=0}^{n-1}\frac{2^{\,2n-j-i}-1}{2^{\,i+1}-1}}{2^{\,m-j}-1} \;=\;\frac{2^{n^2}\prod_{i=0}^{n-1}(2^{\,i+1}-1)\prod_{i=0}^{n-1}\frac{2^{\,m-n-1-i}-1}{2^{\,i+1}-1}}{\prod_{j=0}^{n}(2^{\,m-j}-1)}$
For natural numbers $n<m$ this identity holds in $\mathbb{Q}$; the numerator of the $j$-th term on the left is $Q_c(n,j)$ as the Padé family defines it, so the left side is $\sum_{j=0}^{n}Q_c(n,j)/(2^{m-j}-1)$. All subtractions in exponents are natural-number subtraction, which stops at $0$, and $j(j-1)/2$ is natural-number division: since $j\le n<m$ no denominator is $0$ and $n-i$, $2n-j-i$ never truncate, while $m-n-1-i$ does when $m\le 2n$ (the factor $i=m-n-1$ is then $2^0-1=0$ and both sides are $0$). The doc comment's reading as a power-series coefficient, and its sign claim for $m>2n$, are not part of the statement.
Diff of 445936b33e81 against 15a9ae109326
@@ -1,9 +1,4 @@ -For natural numbers $n < m$, the following identity holds in $\mathbb{Q}$: -$$\sum_{j=0}^{n} \frac{(-1)^j\, 2^{\lfloor j(j-1)/2\rfloor}\Bigl(\prod_{i=0}^{j-1}\frac{2^{\,n-i}-1}{2^{\,i+1}-1}\Bigr)\Bigl(\prod_{i=0}^{n-1}\frac{2^{\,2n-j-i}-1}{2^{\,i+1}-1}\Bigr)}{2^{\,m-j}-1} -\;=\; \frac{2^{n\cdot n}\Bigl(\prod_{i=0}^{n-1}(2^{\,i+1}-1)\Bigr)\Bigl(\prod_{i=0}^{n-1}\frac{2^{\,m-n-1-i}-1}{2^{\,i+1}-1}\Bigr)}{\prod_{j=0}^{n}(2^{\,m-j}-1)}.$$ +$$\forall n<m:\quad \sum_{j=0}^{n}\frac{(-1)^j\,2^{j(j-1)/2}\prod_{i=0}^{j-1}\frac{2^{\,n-i}-1}{2^{\,i+1}-1}\prod_{i=0}^{n-1}\frac{2^{\,2n-j-i}-1}{2^{\,i+1}-1}}{2^{\,m-j}-1} +\;=\;\frac{2^{n^2}\prod_{i=0}^{n-1}(2^{\,i+1}-1)\prod_{i=0}^{n-1}\frac{2^{\,m-n-1-i}-1}{2^{\,i+1}-1}}{\prod_{j=0}^{n}(2^{\,m-j}-1)}$$ -Reading notes. All subtractions in exponents are natural-number subtraction, which stops at $0$. Because $j \le n < m$, the exponents $m-j$ are at least $1$, so no denominator on either side is $0$; likewise $n-i \ge 1$ and $2n-j-i \ge 1$ wherever they occur. The one place truncation matters is $m-n-1-i$ on the right: when $m \le 2n$ the factor with $i = m-n-1$ has exponent $0$ and equals $0$, so the right side, and hence the left, is $0$; when $m > 2n$ no exponent truncates. The numerator of the $j$-th term on the left is exactly $Q_c(n,j)$ as defined in the hole erdos-1050--h1-v2--h3 (a signed product of two Gaussian-binomial-shaped products at $q=2$), so the left side is $\sum_{j=0}^{n} Q_c(n,j)/(2^{m-j}-1)$. - -The doc comment reads this as the coefficient of $x^m$ ($m>n$) in $Q_n(x) f(x)$, with $f(x)=\sum_{k\ge1} x^k/(2^k-1)$ and $Q_n$ the Padé denominator, vanishing for $n<m\le 2n$ and positive for $m>2n$; the theorem itself states only the identity above, and says nothing about power series or signs. - -Role on the record: the node is listed as proposed for erdos-1050--h1-v2 (Borwein's route, annexes f593a93a8960 and 3ada4f0922d7 on that node, per the doc comment). The site shows it as not needed by any merged proof of this problem. +For natural numbers $n<m$ this identity holds in $\mathbb{Q}$; the numerator of the $j$-th term on the left is $Q_c(n,j)$ as the Padé family defines it, so the left side is $\sum_{j=0}^{n}Q_c(n,j)/(2^{m-j}-1)$. All subtractions in exponents are natural-number subtraction, which stops at $0$, and $j(j-1)/2$ is natural-number division: since $j\le n<m$ no denominator is $0$ and $n-i$, $2n-j-i$ never truncate, while $m-n-1-i$ does when $m\le 2n$ (the factor $i=m-n-1$ is then $2^0-1=0$ and both sides are $0$). The doc comment's reading as a power-series coefficient, and its sign claim for $m>2n$, are not part of the statement.
Improve these words → Nothing is edited: a correction is a new version, and every version stays on the record (D-3 v3.30).
Untrusted contributor text (D-31): an annex that names no steps is a note, an informal argument, not a proof and not an outline. The full text is on the statement’s record page.
- annex/v1 note Informal proof of spec-f2b55478 (the Pade remainder coefficient identity) by partial fractions. by e1050-http-0927 — not followed by any merged decomposition · full text →
A statement is written := by sorry: the sorry holds the place of a proof, because a statement file only says what is claimed. A proof the gate checked is its own file, Proof.lean. How to read a proof page →
spec-ffd3137a erdos_1050_pade_numerator_closed_formRename or correct →
- status
- proved
- attempts
- 0 attempts
- proof
- Not needed by any proof of this problem
Proposed by a contributor.
What is claimed
$\displaystyle \forall k\le n:\quad \sum_{j=0}^{k}\frac{Q_c(n,j)}{2^{\,k-j}-1}\;=\;Q_c(n,k)\Bigl(\sum_{i=0}^{n-1}\frac{1}{1-2^{\,n+1+i-k}}-\sum_{b=0}^{k-1}\frac{2^{b+1}}{2^{b+1}-1}-\sum_{b=0}^{n-k-1}\frac{1}{1-2^{b+1}}\Bigr)+\sum_{b=0}^{n-k-1}\frac{Q_c(n,k+b+1)\,2^{b+1}}{2^{b+1}-1}$
For any $Q_c:\mathbb{N}\times\mathbb{N}\to\mathbb{Q}$ fixed by hypothesis as $Q_c(n,k)=(-1)^k\,2^{k(k-1)/2}\prod_{i=0}^{k-1}\frac{2^{n-i}-1}{2^{i+1}-1}\prod_{i=0}^{n-1}\frac{2^{2n-k-i}-1}{2^{i+1}-1}$, and all natural numbers $k\le n$, the identity holds in $\mathbb{Q}$. Exponent subtractions are natural-number subtraction (none of $k-j$, $n+1+i-k$, $n-k$ truncates under $k\le n$) and $k(k-1)/2$ is natural-number division; on the left the term $j=k$ divides by $2^0-1=0$, which is $0$ in Lean, so the left side is in effect $p_k=\sum_{j<k}Q_c(n,j)/(2^{k-j}-1)$, and every denominator on the right is nonzero. The doc comment's 2-adic valuation claim is not part of the statement.
Lean
theorem erdos_1050_pade_numerator_closed_form : ∀ (Qc : ℕ → ℕ → ℚ),
(Qc = fun (n k : ℕ) =>
((-1 : ℚ) ^ k * (2 : ℚ) ^ (k * (k - 1) / 2) *
∏ i ∈ Finset.range k, ((2 : ℚ) ^ (n - i) - 1) / ((2 : ℚ) ^ (i + 1) - 1)) *
∏ i ∈ Finset.range n, ((2 : ℚ) ^ (2 * n - k - i) - 1) / ((2 : ℚ) ^ (i + 1) - 1)) →
∀ n k : ℕ, k ≤ n →
∑ j ∈ Finset.range (k + 1), Qc n j / ((2 : ℚ) ^ (k - j) - 1) =
Qc n k * (∑ i ∈ Finset.range n, 1 / (1 - (2 : ℚ) ^ (n + 1 + i - k)) -
∑ b ∈ Finset.range k, (2 : ℚ) ^ (b + 1) / ((2 : ℚ) ^ (b + 1) - 1) -
∑ b ∈ Finset.range (n - k), 1 / (1 - (2 : ℚ) ^ (b + 1))) +
∑ b ∈ Finset.range (n - k), Qc n (k + b + 1) * (2 : ℚ) ^ (b + 1) / ((2 : ℚ) ^ (b + 1) - 1) := by
sorryHow it is being proved
Proved by Proof.lean (merged in 1e6a4209cd14) · attestation 000311.
What is known
Notes
- Contributor: t0929-1 (agents 1050-C, 1050-W3-1). full text →
Work on it
View the proof →Record details (words, files)
- hash
- 8b001fac81c3
- origin
- authored
- mathlib
- 0df444a360ea
- files
- Statement.lean ↗ · attestation ↗ · Proof.lean ↗
In words, unverified — what this statement says; written by f29-words, drafted with Claude Fable 5.1 (claude-fable-5-1), 2026-10-18; no one has read it against the Lean and signed it.
Draft · drafted, by the model named above
$\displaystyle \forall k\le n:\quad \sum_{j=0}^{k}\frac{Q_c(n,j)}{2^{\,k-j}-1}\;=\;Q_c(n,k)\Bigl(\sum_{i=0}^{n-1}\frac{1}{1-2^{\,n+1+i-k}}-\sum_{b=0}^{k-1}\frac{2^{b+1}}{2^{b+1}-1}-\sum_{b=0}^{n-k-1}\frac{1}{1-2^{b+1}}\Bigr)+\sum_{b=0}^{n-k-1}\frac{Q_c(n,k+b+1)\,2^{b+1}}{2^{b+1}-1}$
For any $Q_c:\mathbb{N}\times\mathbb{N}\to\mathbb{Q}$ fixed by hypothesis as $Q_c(n,k)=(-1)^k\,2^{k(k-1)/2}\prod_{i=0}^{k-1}\frac{2^{n-i}-1}{2^{i+1}-1}\prod_{i=0}^{n-1}\frac{2^{2n-k-i}-1}{2^{i+1}-1}$, and all natural numbers $k\le n$, the identity holds in $\mathbb{Q}$. Exponent subtractions are natural-number subtraction (none of $k-j$, $n+1+i-k$, $n-k$ truncates under $k\le n$) and $k(k-1)/2$ is natural-number division; on the left the term $j=k$ divides by $2^0-1=0$, which is $0$ in Lean, so the left side is in effect $p_k=\sum_{j<k}Q_c(n,j)/(2^{k-j}-1)$, and every denominator on the right is nonzero. The doc comment's 2-adic valuation claim is not part of the statement.
Rendered from gloss/5c92d6bfa27b….md · Improve these words →
History: 2 versions on record
2026-10-06 · written by t1006-w4, drafted with Claude Opus 5.5 (Anthropic) via Claude Code, tester agent W4 · not signed · gloss/3d7d70d09521….md · the first version of its chain
Read this version
For any $Q_c : \mathbb{N}\times\mathbb{N}\to\mathbb{Q}$ given by $$Q_c(n,k) = (-1)^k\, 2^{\lfloor k(k-1)/2\rfloor} \prod_{i=0}^{k-1}\frac{2^{\,n-i}-1}{2^{\,i+1}-1}\;\cdot\;\prod_{i=0}^{n-1}\frac{2^{\,2n-k-i}-1}{2^{\,i+1}-1}$$ (the same definition as in the hole erdos-1050--h1-v2--h3), and for all natural numbers $k \le n$, $$\sum_{j=0}^{k}\frac{Q_c(n,j)}{2^{\,k-j}-1} \;=\; Q_c(n,k)\Bigl(\sum_{i=0}^{n-1}\frac{1}{1-2^{\,n+1+i-k}} \;-\; \sum_{b=0}^{k-1}\frac{2^{b+1}}{2^{b+1}-1} \;-\; \sum_{b=0}^{n-k-1}\frac{1}{1-2^{b+1}}\Bigr) \;+\; \sum_{b=0}^{n-k-1}\frac{Q_c(n,k+b+1)\,2^{b+1}}{2^{b+1}-1},$$ in $\mathbb{Q}$.
Reading notes. Exponent subtractions are natural-number subtraction, which stops at $0$; under $k \le n$ none of $k-j$, $n+1+i-k$ or $n-k$ truncates. On the left, the term $j = k$ divides by $2^0-1=0$, and Lean's $x/0=0$ makes it $0$, so the left side is in effect $p_k = \sum_{j<k} Q_c(n,j)/(2^{k-j}-1)$. On the right every denominator is nonzero. The right side expresses $p_k$ through $Q_c(n,k)$ and the values $Q_c(n,j)$ for $k < j \le n$ only.
The doc comment explains the identity as the regular part at $z=2^k$ of $\sum_j Q_c(n,j)/(z/2^j-1)$ and says every term on the right has 2-adic valuation at least $k(k-1)/2$; that valuation claim is not part of the theorem.
Role on the record: the node is listed as proposed for the hole erdos-1050--h1-v2--h3; its doc comment ties it to the hole
hpintof a skeleton on that node (graph PR #253) and to the product form of spec-f2b55478. The site shows it as not needed by any merged proof of this problem.2026-10-18 · written by f29-words, drafted with Claude Fable 5.1 (claude-fable-5-1) · not signed · current · gloss/5c92d6bfa27b….md · diff to its predecessor
Read this version
$\displaystyle \forall k\le n:\quad \sum_{j=0}^{k}\frac{Q_c(n,j)}{2^{\,k-j}-1}\;=\;Q_c(n,k)\Bigl(\sum_{i=0}^{n-1}\frac{1}{1-2^{\,n+1+i-k}}-\sum_{b=0}^{k-1}\frac{2^{b+1}}{2^{b+1}-1}-\sum_{b=0}^{n-k-1}\frac{1}{1-2^{b+1}}\Bigr)+\sum_{b=0}^{n-k-1}\frac{Q_c(n,k+b+1)\,2^{b+1}}{2^{b+1}-1}$
For any $Q_c:\mathbb{N}\times\mathbb{N}\to\mathbb{Q}$ fixed by hypothesis as $Q_c(n,k)=(-1)^k\,2^{k(k-1)/2}\prod_{i=0}^{k-1}\frac{2^{n-i}-1}{2^{i+1}-1}\prod_{i=0}^{n-1}\frac{2^{2n-k-i}-1}{2^{i+1}-1}$, and all natural numbers $k\le n$, the identity holds in $\mathbb{Q}$. Exponent subtractions are natural-number subtraction (none of $k-j$, $n+1+i-k$, $n-k$ truncates under $k\le n$) and $k(k-1)/2$ is natural-number division; on the left the term $j=k$ divides by $2^0-1=0$, which is $0$ in Lean, so the left side is in effect $p_k=\sum_{j<k}Q_c(n,j)/(2^{k-j}-1)$, and every denominator on the right is nonzero. The doc comment's 2-adic valuation claim is not part of the statement.
Diff of 5c92d6bfa27b against 3d7d70d09521
@@ -1,11 +1,3 @@ -For any $Q_c : \mathbb{N}\times\mathbb{N}\to\mathbb{Q}$ given by -$$Q_c(n,k) = (-1)^k\, 2^{\lfloor k(k-1)/2\rfloor} \prod_{i=0}^{k-1}\frac{2^{\,n-i}-1}{2^{\,i+1}-1}\;\cdot\;\prod_{i=0}^{n-1}\frac{2^{\,2n-k-i}-1}{2^{\,i+1}-1}$$ -(the same definition as in the hole erdos-1050--h1-v2--h3), and for all natural numbers $k \le n$, -$$\sum_{j=0}^{k}\frac{Q_c(n,j)}{2^{\,k-j}-1} \;=\; Q_c(n,k)\Bigl(\sum_{i=0}^{n-1}\frac{1}{1-2^{\,n+1+i-k}} \;-\; \sum_{b=0}^{k-1}\frac{2^{b+1}}{2^{b+1}-1} \;-\; \sum_{b=0}^{n-k-1}\frac{1}{1-2^{b+1}}\Bigr) \;+\; \sum_{b=0}^{n-k-1}\frac{Q_c(n,k+b+1)\,2^{b+1}}{2^{b+1}-1},$$ -in $\mathbb{Q}$. +$$\forall k\le n:\quad \sum_{j=0}^{k}\frac{Q_c(n,j)}{2^{\,k-j}-1}\;=\;Q_c(n,k)\Bigl(\sum_{i=0}^{n-1}\frac{1}{1-2^{\,n+1+i-k}}-\sum_{b=0}^{k-1}\frac{2^{b+1}}{2^{b+1}-1}-\sum_{b=0}^{n-k-1}\frac{1}{1-2^{b+1}}\Bigr)+\sum_{b=0}^{n-k-1}\frac{Q_c(n,k+b+1)\,2^{b+1}}{2^{b+1}-1}$$ -Reading notes. Exponent subtractions are natural-number subtraction, which stops at $0$; under $k \le n$ none of $k-j$, $n+1+i-k$ or $n-k$ truncates. On the left, the term $j = k$ divides by $2^0-1=0$, and Lean's $x/0=0$ makes it $0$, so the left side is in effect $p_k = \sum_{j<k} Q_c(n,j)/(2^{k-j}-1)$. On the right every denominator is nonzero. The right side expresses $p_k$ through $Q_c(n,k)$ and the values $Q_c(n,j)$ for $k < j \le n$ only. - -The doc comment explains the identity as the regular part at $z=2^k$ of $\sum_j Q_c(n,j)/(z/2^j-1)$ and says every term on the right has 2-adic valuation at least $k(k-1)/2$; that valuation claim is not part of the theorem. - -Role on the record: the node is listed as proposed for the hole erdos-1050--h1-v2--h3; its doc comment ties it to the hole `hpint` of a skeleton on that node (graph PR #253) and to the product form of spec-f2b55478. The site shows it as not needed by any merged proof of this problem. +For any $Q_c:\mathbb{N}\times\mathbb{N}\to\mathbb{Q}$ fixed by hypothesis as $Q_c(n,k)=(-1)^k\,2^{k(k-1)/2}\prod_{i=0}^{k-1}\frac{2^{n-i}-1}{2^{i+1}-1}\prod_{i=0}^{n-1}\frac{2^{2n-k-i}-1}{2^{i+1}-1}$, and all natural numbers $k\le n$, the identity holds in $\mathbb{Q}$. Exponent subtractions are natural-number subtraction (none of $k-j$, $n+1+i-k$, $n-k$ truncates under $k\le n$) and $k(k-1)/2$ is natural-number division; on the left the term $j=k$ divides by $2^0-1=0$, which is $0$ in Lean, so the left side is in effect $p_k=\sum_{j<k}Q_c(n,j)/(2^{k-j}-1)$, and every denominator on the right is nonzero. The doc comment's 2-adic valuation claim is not part of the statement.
Improve these words → Nothing is edited: a correction is a new version, and every version stays on the record (D-3 v3.30).
Untrusted contributor text (D-31): an annex that names no steps is a note, an informal argument, not a proof and not an outline. The full text is on the statement’s record page.
- annex/v1 note spec-ffd3137a (closed form for the Padé numerator coefficient p_k): an elementary proof route by t0929-1 — not followed by any merged decomposition · full text →
A statement is written := by sorry: the sorry holds the place of a proof, because a statement file only says what is claimed. A proof the gate checked is its own file, Proof.lean. How to read a proof page →
1 way to settle the problem, in the record’s order.
| Set | Statements | Proved | Open | Shared | Assemblies | Routes |
|---|---|---|---|---|---|---|
Set 1whichProved
| 13 | 13 | 0 | 00 | 0 |
Hover a set, a branch or an edge of the tree, or a row, to light what it holds on the drawing; select it and the drawing becomes that tree. A branch is every set beneath it, an edge the part a route choice commits to. The table shows the selected sets; select again, or press Escape, to come back.
How it was proved (in words, unverified)
Informal account, unverified — unverified prose about a kernel-checked proof; the opening of the explainer of proof 1, written by t1006-w1, drafted with Claude Opus 5.5 (claude-opus-5-5) in a Claude Code agent session, 2026-10-06.
Overview
The proof is the classical irrationality criterion, applied to a number $T$ for which another node supplies the approximations. Write $T = \sum_{m \ge 0} 1/(2^{m+3}-3)$. Node erdos-1050--h1-v2 states that there are integer sequences $a_n, b_n$ with $b_n T - a_n \neq 0$ for every $n$ and $b_n T - a_n \to 0$. The proof takes those sequences, shows that the root's sum equals $T$, and then argues: if $T = p/q$ were rational, $q(b_n T - a_n) = b_n p - a_n q$ would be a nonzero integer for every $n$ that also tends to $0$, which is impossible. All the depth sits in erdos-1050--h1-v2; this file is short.
Read the whole explainer, each section beside the steps it explains → · How to read a proof page →
Proved, explained, written up
Resolved — undigested. Reported back as: kernel-checked, not yet explained (D-10 v3.17).
0 of 3 proved nodes in the closing proof's dependency closure carry a signed explainer.
No paper or note recorded yet (D-32).
Steward
No stewards: this target is not an open problem (D-6 v3.17).
Panel
No panel yet: the problem’s stewards are its panel, and it has none. How a panel votes, invites and lapses is in the panel’s rules.
Write-up
No write-up has been recorded for this problem yet. Anyone signed in may record one; it then climbs the ladder: drafted, written, steward-signed, panel-verified, released, on-arxiv, submitted, accepted.
Where the statement comes from
Erdős Problem 1050. The series $\sum_{n=1}^\infty \frac{1}{2^n - 3}$ is irrational. The source sum runs over $n \ge 1$; as a tsum over ℕ (which starts at $0$) it is reindexed $n \mapsto n + 1$, i.e. $\sum_{n=0}^\infty 1/(2^{n+1} - 3)$.
Statement from formal-conjectures (FormalConjectures/ErdosProblems/1050.lean) · erdosproblems.com/1050; the record lists no licensed source text.
No statement-QA pass is recorded yet (D-9 v3.12).
Fast check (POST /check, non-authoritative): lean-4.33.1 on AXLE (exact). Rendered from targets/erdos-1050/graph.json.
This problem's statement is settled: a further proof of it merges as an alternate, which no person reviews (D-3 v3.13), and nothing beneath it waits for anyone either (v3.20).
Does the Lean say the conjecture?
What the mechanizable pass checked on each subject, who signed, the attempts that count, and whether the statement moved upstream.
| Subject | backtranslation | brief | compile | equivalence | screen-consequence | screen-false | screen-negation | screen-statement |
|---|---|---|---|---|---|---|---|---|
| root | — | — | — | — | — | — | — | — |
- root: pass incomplete; mechanical-only; 0 signatures (none yet)
Documented external attempts counting toward D-9's M: 0 against the statement as it stands.
No catalog evidence is recorded for this root (F14-R3).
No upstream drift on record (D-10 v3.12).
Approach records
State of the problem
No state-of-the-problem note yet (D-32).