你应该不制作一个这样大小的整体筛子。相反,使用 Eratosthenes 的分段筛子在连续的段中执行筛分。在第一段,计算段内每个筛选素数的最小倍数,然后以正常方式将筛选素数的倍数标记为合数;当所有的筛选素数都用完后,该段中剩余的未标记数为素数。然后,对于下一段,每个筛分质数的最小倍数是前一段中结束筛分的倍数,所以筛分一直持续到结束。
考虑将 100 到 200 分成 20 段的示例; 5个筛选素数分别是3、5、7、11和13。在从100到120的第一段中,bitarray有10个槽,槽0对应101,槽k对应100+ 2*k* + 1,slot 9对应119。segment中3的最小倍数是105,对应slot 2;槽 2+3=5 和 5+3=8 也是 3 的倍数。槽 2 处 5 的最小倍数是 105,槽 2+5=7 也是 5 的倍数。7 的最小倍数是 105在槽 2 处,槽 2+7=9 也是 7 的倍数。以此类推。
函数primes接受参数lo、hi和delta; lo 和 hi 必须是偶数,lo hi 和 lo 必须大于 hi 的平方根。段大小是 delta 的两倍。长度为 m 的数组 ps 包含小于 hi 平方根的筛选素数,由于偶数被忽略,因此删除了 2,由埃拉托色尼筛法。数组qs 包含对应筛分素数的当前段中最小倍数的sieve 位数组的偏移量。在每个段之后,lo 前进两倍 delta,因此对应于 sieve 位数组的索引 i 的数字是 lo + 2 i + 1.
function primes(lo, hi, delta)
sieve := makeArray(0..delta-1)
ps := tail(primes(sqrt(hi)))
m := length(ps)
qs := makeArray(0..m-1)
for i from 0 to m-1
qs[i] := (-1/2 * (lo + ps[i] + 1)) % ps[i]
while lo < hi
for i from 0 to delta-1
sieve[i] := True
for i from 0 to m-1
for j from qs[i] to delta step ps[i]
sieve[j] := False
qs[i] := (qs[i] - delta) % ps[i]
for i from 0 to delta-1
t := lo + 2*i + 1
if sieve[i] and t < hi
output t
lo := lo + 2*delta
对于上面给出的示例,这称为primes(100, 200, 10)。在上面给出的示例中,qs 最初为 [2,2,2,10,8],对应于最小倍数 105、105、105、121 和 117,并为第二段重置为 [1,2, 6,0,11],对应最小的倍数 123, 125, 133, 121 和 143。
delta 的值很关键;您应该使 delta 尽可能大,只要它适合缓存内存,以提高速度。将您的语言库用于位数组,这样您只需为每个筛子位置取一个位。如果您需要一个简单的 Eratosthenes 筛来计算筛分质数,这是我最喜欢的:
function primes(n)
sieve := makeArray(2..n, True)
for p from 2 to n step 1
if sieve(p)
output p
for i from p * p to n step p
sieve[i] := False
您可以在my blog 看到更多涉及素数的算法。