Segmented sieve witnesses, block 50010008 only (grp01 c0001 block 8)
ProvedRichstein2001.segmented_sieve_block_witnesses_chunk_1_range_1_part_1_upper_grp01_c0001_b8computational-number-theorygoldbachrichstein
One-block slice: every even n in million-block 50010008 is p+q with p prime ≤5569 and q a GoldbachSieve survivor (cutoff 2·10^7). Child of upper_grp01_c0001.
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_grp01_c0001_b8 (b : Nat) (hb : b < 400000001)
(hlo : 50010008 <= b) (hhi : b < 50010009) :
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, Math. Comp. 70 (2001), 1745-1749, Section 2; one-block slice of Richstein2001.segmented_sieve_block_witnesses_chunk_1_range_1_part_1_upper_grp01_c0001.