FormalConjectures/ErdosProblems/457.lean
Explanation legend Lean4 Domain Explanation Language (L4DEL)
L4DEL explanations are a separate layer. They do not change the Lean source. Intuition is explanatory prose; numbered items are a reading path; sources link the wording back to evidence.
- L4DEL
- Lean4 Domain Explanation Language
Credit: The upstream authors and contributors retain credit for the project and mathematics. lean4-explainer only renders their pinned source and adds the separately disclosed explanation layer.
Project sources: Pinned project documentation, Formal Conjectures paper, arXiv v1
4 declarations, 2 contain sorry, 0 declared as axioms
Erdős Problem 457
Reference: erdosproblems.com/457
Imports (1)
Imported by 1 file
- theorem
Erdos457.erdos_457Is there some sorry line 40 sourceSource documentation
Is there some $\epsilon > 0$ such that there are infinitely many $n$ where all primes $p \le (2 + \epsilon) \log n$ divide $$ \prod_{1 \le i \le \log n} (n + i)? $$
This was formalized in Lean by Baretto and van Doorn using Aristotle.
depends on sorry what this means
Statement uses:
Iff,True,Exists,Real,And,GT.gt,OfNat.ofNat,Set.Infinite,Nat,Set.ofPred,Erdos457.erdos_457.match_1,LE.le,HMul.hMul,HAdd.hAdd,Real.log,Nat.Prime,Dvd.dvd,Finset.prod,Finset.Icc,Nat.floorProof uses:
sorryAx,Lean.Name,Bool.false,Lean.Name.num,Lean.Name.str,Lean.Name.anonymous50 instances, coercions and auxiliary constants left out.
Tactic trace: 1 steps
Open to load the checked before-and-after goal states.
theorem erdos_457 : answer(True) ↔ ∃ ε > (0 : ℝ), { (n : ℕ) | ∀ (p : ℕ), p ≤ (2 + ε) * Real.log n → p.Prime → p ∣ ∏ i ∈ Finset.Icc 1 ⌊Real.log n⌋₊, (n + i) }.Infinite := by … - abbrev
Erdos457.qLet $q(n, k)$ denote the least prime which does not divide $\prod_{1 \le i \le k}(n + i)$ line 47 sourceSource documentation
Let $q(n, k)$ denote the least prime which does not divide $\prod_{1 \le i \le k}(n + i)$.
standard axioms: Classical.choice, Quot.sound, propext what this means
Statement uses:
Nat,RealProof uses:
Nat.find,And,Nat.Prime,Not,Dvd.dvd,Finset.prod,Finset.Icc,OfNat.ofNat,Nat.floor,HAdd.hAdd18 instances, coercions and auxiliary constants left out.
Tactic trace: 1 steps
Open to load the checked before-and-after goal states.
noncomputable abbrev q (n : ℕ) (k : ℝ) : ℕ := …
- theorem
Erdos457.erdos_457.variants.qnkMore generally, let $q(n, k)$ denote the least prime which does not divide $\prod_{1 \le i \le k}(n + i)$ line 62 sourceSource documentation
More generally, let $q(n, k)$ denote the least prime which does not divide $\prod_{1 \le i \le k}(n + i)$. This problem asks whether $q(n, \log n) \ge (2 + \epsilon) \log n$ infinitely often.
This follows from
erdos_457: if every prime $p \le (2 + \epsilon) \log n$ divides $\prod_{1 \le i \le \log n} (n + i)$, then $q(n, \log n)$, the least prime not dividing this product, must exceed $(2 + \epsilon) \log n$.depends on sorry what this means
Statement uses:
Iff,True,Exists,Real,And,GT.gt,OfNat.ofNat,Set.Infinite,Nat,Set.ofPred,Erdos457.erdos_457.match_1,LE.le,HMul.hMul,HAdd.hAdd,Real.log, Erdos457.qProof uses:
Iff.intro,Nat.Prime,Dvd.dvd,Finset.prod,Finset.Icc,Nat.floor,Iff.mp, Erdos457.erdos_457,trivial,Exists.intro,And.intro,Set.Infinite.mono,Membership.mem,Set,Decidable.byContradiction,Not,False,Nat.find_spec, Nat.exists_prime_not_dvd,Iff.mprand 20 more91 instances, coercions and auxiliary constants left out.
Tactic trace: 12 steps
Open to load the checked before-and-after goal states.
theorem erdos_457.variants.qnk : answer(True) ↔ ∃ ε > (0 : ℝ), { (n : ℕ) | (2 + ε) * Real.log n ≤ q n (Real.log n) }.Infinite := by …Mentions: Erdos457.q
- theorem
Erdos457.erdos_457.variants.one_subTaking sorry line 86 sourceSource documentation
Taking $n$ to be the product of primes between $\log n$ and $(2 + o(1)) \log n$ gives an example where $$ q(n, \log n) \ge (2 + o(1)) \log n. $$ Can one prove that $q(n, \log n) < (1 - \epsilon) (\log n)^2$ for all large $n$ and some $\epsilon > 0$?
depends on sorry what this means
Statement uses:
Iff,True,Exists,Real,And,GT.gt,OfNat.ofNat,Filter.Eventually,Nat,LT.lt, Erdos457.q,Real.log,HMul.hMul,HSub.hSub,HPow.hPow,Filter.atTopProof uses:
sorryAx,Lean.Name,Bool.false,Lean.Name.num,Lean.Name.str,Lean.Name.anonymous34 instances, coercions and auxiliary constants left out.
Tactic trace: 1 steps
Open to load the checked before-and-after goal states.
theorem erdos_457.variants.one_sub : answer(sorry) ↔ ∃ ε > (0 : ℝ), ∀ᶠ n in Filter.atTop, q n (Real.log n) < (1 - ε) * Real.log n ^ 2 := by …Mentions: Erdos457.q