/- Copyright 2025 The Formal Conjectures Authors. Licensed under the Apache License, Version 2.0 (the "License"); you may not use this file except in compliance with the License. You may obtain a copy of the License at https://www.apache.org/licenses/LICENSE-2.0 Unless required by applicable law or agreed to in writing, software distributed under the License is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. See the License for the specific language governing permissions and limitations under the License. -/ import FormalConjecturesUtil

Erdős Problem 494

References:

    erdosproblems.com/494

    [SeSt58] Selfridge, J. L. and Straus, E., On the determination of numbers by their sums of a fixed order. Pacific Journal of Math. (1958), 847-856.

    [Er61] Erdős, Paul, Some unsolved problems. Magyar Tud. Akad. Mat. Kutató Int. Közl. (1961), 221-254.

    [GFS62] Gordon, B. and Fraenkel, A. S. and Straus, E. G., On the determination of sets by the sets of sums of a certain order. Pacific J. Math. (1962), 187--196.

open Filternamespace Erdos494

For a finite set $A \subset \mathbb{C}$ and $k \ge 1$, define $A_k$ as the multiset consisting of all sums of $k$ distinct elements of $A$.

noncomputable def sumMultiset (A : Finset ) (k : ) : Multiset := (A.powersetCard k).val.map fun s => s.sum iddef Erdos494Unique (k : ) (card : ) := A B : Finset , A.card = card B.card = card sumMultiset A k = sumMultiset B k A = B

Selfridge and Straus [SeSt58] showed that the conjecture is true when $k = 2$ and $|A| \ne 2^l$ for $l \ge 0$. They also gave counterexamples when $k = 2$ and $|A| = 2^l$.

@[category research solved, AMS 5] theorem erdos_494.variants.k_eq_2_card_not_pow_two : card : , ( l : , card 2 ^ l) Erdos494Unique 2 card := (card : ), (∀ (l : ), card 2 ^ l) Erdos494Unique 2 card All goals completed! 🐙

Selfridge and Straus [SeSt58] gave counterexamples to the conjecture when $k = 2$ and $|A| = 2^l$.

@[category research solved, AMS 5, formal_proof using formal_conjectures at "https://github.com/hjyuh/formal-conjectures/blob/e0da6ec78953b17618895a093d4bee90fd3f6f67/FormalConjectures/ErdosProblems/494.lean#L533"] theorem erdos_494.variants.k_eq_2_card_pow_two : card : , ( l : , card = 2 ^ l) ¬Erdos494Unique 2 card := (card : ), (∃ l, card = 2 ^ l) ¬Erdos494Unique 2 card All goals completed! 🐙

Selfridge and Straus [SeSt58] also showed that the conjecture is true when

    $k = 3$ and $|A| > 6$ or

    $k = 4$ and $|A| > 12$. More generally, they proved that $A$ is determined by $A_k$ (and $|A|$) if $|A|$ is divisible by a prime greater than $k$.

@[category research solved, AMS 5] theorem erdos_494.variants.k_eq_3_card_gt_6 : card > 6, Erdos494Unique 3 card := card > 6, Erdos494Unique 3 card All goals completed! 🐙

Selfridge and Straus [SeSt58] showed that the conjecture is true when $k = 4$ and $|A| > 12$.

@[category research solved, AMS 5] theorem erdos_494.variants.k_eq_4_card_gt_12 : card > 12, Erdos494Unique 4 card := card > 12, Erdos494Unique 4 card All goals completed! 🐙

Selfridge and Straus [SeSt58] proved that $A$ is determined by $A_k$ if $|A|$ is divisible by a prime greater than $k$.

@[category research solved, AMS 5] theorem erdos_494.variants.card_divisible_by_prime_gt_k : (k card p : ), p.Prime k Set.Ioo 0 p p card Erdos494Unique k card := (k card p : ), Nat.Prime p k Set.Ioo 0 p p card Erdos494Unique k card All goals completed! 🐙

Kruyt noted that the conjecture fails when $|A| = k$, by rotating $A$ around an appropriate point.

@[category research solved, AMS 5, formal_proof using formal_conjectures at "https://github.com/hjyuh/formal-conjectures/blob/e0da6ec78953b17618895a093d4bee90fd3f6f67/FormalConjectures/ErdosProblems/494.lean#L592"] theorem erdos_494.variants.k_eq_card : k > 2, ¬Erdos494Unique k k := k > 2, ¬Erdos494Unique k k All goals completed! 🐙

Similarly, Tao noted that the conjecture fails when $|A| = 2k$, by taking $A$ to be a set of the total sum 0 and considering $-A$.

@[category research solved, AMS 5, formal_proof using formal_conjectures at "https://github.com/hjyuh/formal-conjectures/blob/e0da6ec78953b17618895a093d4bee90fd3f6f67/FormalConjectures/ErdosProblems/494.lean#L916"] theorem erdos_494.variants.card_eq_2k : k > 2, ¬Erdos494Unique k (2 * k) := k > 2, ¬Erdos494Unique k (2 * k) All goals completed! 🐙

Gordon, Fraenkel, and Straus [GRS62] proved that the claim is true for all $k > 2$ when $|A|$ is sufficiently large.

@[category research solved, AMS 5] theorem erdos_494.variants.gordon_fraenkel_straus : k > 2, ∀ᶠ card in atTop, Erdos494Unique k card := k > 2, ∀ᶠ (card : ) in atTop, Erdos494Unique k card All goals completed! 🐙

A version in [Er61] by Erdős is product instead of sum, which is false. Counterexample (by Steinerberger): consider $k = 3$ and let $A = {1, \zeta_6, \zeta_6^2, \zeta_6^4}$ and $B = {1, \zeta_6^2, \zeta_6^3, \zeta_6^4}$.

noncomputable def prodMultiset (A : Finset ) (k : ) : Multiset := ((A.powersetCard k).val.map (fun s => s.prod id))

A counterexample to the product version of the conjecture (by Steinerberger).

@[category research solved, AMS 5, formal_proof using formal_conjectures at "https://github.com/hjyuh/formal-conjectures/blob/e0da6ec78953b17618895a093d4bee90fd3f6f67/FormalConjectures/ErdosProblems/494.lean#L951"] theorem erdos_494.variants.product : (A B : Finset ), A.card = B.card prodMultiset A 3 = prodMultiset B 3 A B := A B, A.card = B.card prodMultiset A 3 = prodMultiset B 3 A B All goals completed! 🐙end Erdos494