Segmented sieve witnesses, blocks 50554500-50603999 (group 12 of 20 of part_1_upper)
OpenRichstein2001.segmented_sieve_block_witnesses_chunk_1_range_1_part_1_upper_grp12computational-number-theorygoldbachrichsteinsieve
For every block index with
every even integer with can be written as with a prime, , and a survivor of the sieve by the primes up to on (GoldbachSieve.survivors).
Role: group of of Richstein2001.segmented_sieve_block_witnesses_chunk_1_range_1_part_1_upper (blocks to ); the groups tile that range end to end. Each group has width in the block index .
Formalization Note The conclusion matches the parent Richstein2001.segmented_sieve_block_witnesses_chunk_1_range_1_part_1_upper exactly; only the range of is restricted. This mirrors the already-proved decomposition of the sibling ..._part_1_lower into twenty groups.
Preamble
import Definitions.Def_GoldbachSieve import Mathlib.Algebra.Ring.Parity
Formal statement
namespace Richstein2001
theorem segmented_sieve_block_witnesses_chunk_1_range_1_part_1_upper_grp12 (b : Nat) (hb : b < 400000001)
(hlo : 50554500 <= b) (hhi : b < 50604000) :
forall (n : Nat), Membership.mem ((Finset.Icc (max 4 (b * 1000000))
(min (4 * 10 ^ 14) ((b + 1) * 1000000 - 1))).filter (fun n => Even n)) n ->
exists (p : Nat), Membership.mem ((Finset.Icc 2 5569).filter Nat.Prime) p /\
exists (q : Nat), Membership.mem (GoldbachSieve.survivors (b * 1000000 - 5569)
(min (4 * 10 ^ 14) ((b + 1) * 1000000 - 1)) 20000000) q /\
n = p + q := by sorry
end Richstein2001Source
J. Richstein, Verifying the Goldbach conjecture up to 4e14, Math. Comp. 70 (2001), 1745-1749, https://doi.org/10.1090/S0025-5718-00-01290-4, Section 2 (the segmented sieve: every even n in a block is p + q with p a small prime and q a sieve survivor); contiguous block-range subgoal of the parent `Richstein2001.segmented_sieve_block_witnesses_chunk_1_range_1_part_1_upper`.