/- Copyright 2026 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

Ben Green's Open Problem 46

What is the largest $y$ for which one may cover the interval $[y]$ by residue classes $a_p \pmod{p}$, one for each prime $p \leq x$?

References:

    [Gr24] Ben Green's Open Problem 46

    [FGK18] Ford, K., Green, B., Konyagin, S., Maynard, J., & Tao, T. (2018). Long gaps between primes. Journal of the American Mathematical Society, 31(1), 65-105.

    [Iw78] Iwaniec, Henryk. "On the problem of Jacobsthal." Demonstratio Mathematica 11.1 (1978): 225-232.

namespace Green46 open Filteropen scoped Asymptotics

Given $x$ and $y$, can we cover the interval $[1, y]$ by residue classes $a_p \pmod p$ for each prime $p \le x$?

def IsCoveredByResidues (x y : ) : Prop := a : , m Finset.Icc 1 y, p x, p.Prime m a p [MOD p]

The maximum $y$ for a given $x$, cast to a real number for asymptotics.

noncomputable def maxY (x : ) : := ((sSup { y | IsCoveredByResidues x y } : ) : )

Best-known lower bound [Ra38].

noncomputable def bestLower (x : ) : := (x : ) * Real.log (x : ) * Real.log (Real.log (Real.log (x : ))) / Real.log (Real.log (x : ))

Best-known upper bound [Iw78].

noncomputable def bestUpper (x : ) : := (x : ) ^ 2

We conjecture that the best-known lower bound can be improved.

@[category research open, AMS 11] theorem declaration uses 'sorry'green_46.improve_lower : let ans := (answer(sorry) : ) (bestLower =o[atTop] ans) (ans maxY) := let ans := sorry; bestLower =o[atTop] ans ans =O[atTop] maxY All goals completed! 🐙

We conjecture that the best-known upper bound can be improved.

@[category research open, AMS 11] theorem declaration uses 'sorry'green_46.improve_upper : let ans := (answer(sorry) : ) (ans =o[atTop] bestUpper) (maxY ans) := let ans := sorry; ans =o[atTop] bestUpper maxY =O[atTop] ans All goals completed! 🐙

It seems very likely that we must have $y \ll x^{1+o(1)}$ [Gr24].

@[category research open, AMS 11] theorem declaration uses 'sorry'green_46.improve_upper_conjectured : o : , (o =o[atTop] fun _ : (1 : )) maxY fun x (x : ) ^ (1 + o x) := o, (o =o[atTop] fun x => 1) maxY =O[atTop] fun x => x ^ (1 + o x) All goals completed! 🐙

Best known lower bound: $y \gg x \frac{\log x \log \log \log x}{\log \log x}$ [Ra38].

@[category research solved, AMS 11] theorem declaration uses 'sorry'green_46.variants.lower : bestLower maxY := bestLower =O[atTop] maxY All goals completed! 🐙

Best known upper bound: $y \ll x^2$ [Iw78].

@[category research solved, AMS 11] theorem declaration uses 'sorry'green_46.variants.upper : maxY bestUpper := maxY =O[atTop] bestUpper All goals completed! 🐙 -- TODO(jeangud) Add similar problem mentioned in [Gr24, Problem 46] end Green46