FormalConjectures/ErdosProblems/478.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
1 declarations, 1 contain sorry, 0 declared as axioms
Erdős Problem 478
References:
- erdosproblems.com/478
- [AnTa16] V. Andrejić and M. Tatarevic, On distinct residues of factorials. arXiv:1603.04086 (2016).
- [GSSV24] Grebennikov, Alexandr and Sagdeev, Arsenii and Semchankau, Aliaksei and Vasilevskii, Aliaksei, On the sequence {$n! \bmod p$}. Rev. Mat. Iberoam. (2024), 637--648.
- [Gu04] Guy, Richard K., Unsolved problems in number theory. (2004), xviii+437.
- [KlMu17] Klurman, Oleksiy and Munsch, Marc, Distribution of factorials modulo {$p$}. J. Théor. Nombres Bordeaux (2017), 169--177.
- [RoSc60] Rokowska, B. and Schinzel, A., Sur un problème de {M}. {E}rdős. Elem. Math. (1960), 84--85.
- [Tr13] T. Trudgian, There are no socialist primes less than $10^9$. arXiv:1310.6403 (2013).
Imports (1)
- theorem
Erdos478.erdos_478Let $p$ be a prime and $$A_p = \{ k! \pmod{p} : 1\leq k<p\}.$$ Is it true that $$\lvert A_p\rvert \sim (1-\tfrac{1}{e})p?$$ sorry line 45 sourceSource documentation
Let $p$ be a prime and $$A_p = \{ k! \pmod{p} : 1\leq k<p\}.$$ Is it true that $$\lvert A_p\rvert \sim (1-\tfrac{1}{e})p?$$
depends on sorry what this means
Statement uses:
Iff,True,Filter.Tendsto,Nat,Real,HDiv.hDiv,Finset.card,Finset.image,HMod.hMod,Nat.factorial,Finset.Ico,OfNat.ofNat,Min.min,Filter,Filter.atTop,Filter.principal,Set.ofPred,Nat.Prime,nhds,HSub.hSuband 1 moreProof uses:
sorryAx,Lean.Name,Bool.false,Lean.Name.num,Lean.Name.str,Lean.Name.anonymous38 instances, coercions and auxiliary constants left out.
Tactic trace: 1 steps
Open to load the checked before-and-after goal states.
theorem erdos_478 : answer(sorry) ↔ Filter.Tendsto (fun p : ℕ => (((Finset.Ico 1 p).image (fun k => Nat.factorial k % p)).card : ℝ) / p) (Filter.atTop ⊓ Filter.principal {p : ℕ | p.Prime}) (nhds (1 - 1 / Real.exp 1)) := by …