Erdős problem 402
Prove that, for any finite set , there exist such that
Sources
FormalConjectures/ErdosProblems/
402.lean
Retained formal statement
A conjecture of Graham [Gr70], who also conjectured that (assuming itself has no common divisor) the only cases where equality is achieved are when or (where ) or . Note: The source [BaSo96] mentioned on the Erdős page makes it clear what quantifiers to use for "where equality is achieved". See Theorem 1.1 there.
TODO(firsching): Consider if we should have the other direction here as well or an iff statement.
∀ (A : Finset ℕ), 0 ∉ A → A.Nonempty → A.gcd id = 1 → (∀ a ∈ A, ∀ b ∈ A, ↑a / ↑A.card ≤ ↑(a.gcd b)) → A = Finset.Icc 1 A.card ∨ A = Finset.image (fun x => (Finset.Icc 1 A.card).lcm id / x) (Finset.Icc 1 A.card) ∨ A = {2, 3, 4, 6}SolvedStatement only, no proof