\datethis
@*Intro. This program constructs segments of the ``sieve of Eratosthenes,''
and outputs the largest prime gaps that it finds. More precisely, it
works with sets of prime numbers between $s_i$ and $s_{i+1}=s_i+\delta$,
represented as an array of bits, and it examines these arrays for
$t$ consecutive intervals beginning with $s_i$ for $i=0$, 1, \dots~$t-1$.
Thus it scans all primes between $s_0$ and $s_t$.
Let $p_k$ be the $k$th prime number. The sieve of Eratosthenes determines
all primes $\le N$ by starting with the set $\{2,3,\ldots,N\}$ and striking
out the nonprimes: After we know $p_1$ through $p_{k-1}$, the next remaining
element is $p_k$, and we strike out the numbers $p_k^2$, $p_k(p_k+1)$,
$p_k(p_k+2)$, etc. The sieve is complete when we've found the
first prime with $p_k^2>N$.
In this program it's convenient to deal with the nonprimes instead of the
primes, and to assume that we already know all of the ``small'' primes~$p_k$
for which $p_k^2\le s_t$.
And of course we might as well restrict consideration to odd numbers.
Thus, we'll represent the integers between $s_i$ and $s_{i+1}$ by
$\delta/2$ bits; these bits will appear in $\delta/128$ 64-bit numbers
|sieve[j]|, where
$$|sieve[j]|=\sum_{n=s_i+128j}^{s_i+128(j+1)} 2^{(n-s_i-128j-1)/2}
\,\hbox{$\bigl[n$ is an odd multiple of some odd prime
$\le\sqrt{\mathstrut s_{i+1}}\,\bigr]$}.$$
We choose the segment size $\delta$ to be a multiple of 128.
We also assume that $s_0$ is even, and $s_0\ge\sqrt\delta$. It follows
that $s_i$ is even for all~$i$, and that $(s_i+1)^2=s_i^2+s_i+s_{i+1}-\delta
\ge s_i+s_{i+1}>s_{i+1}$. Consequently we have
$$|sieve[j]|=\sum_{n=s_i+128j}^{s_i+128(j+1)} 2^{(n-s_i-128j-1)/2}
\,\hbox{$\bigl[n$ is odd and not prime$\bigr]$},$$
because $n$ appears if and only if it is divisible by some prime~$p$
where $p\le\sqrt{\mathstrut s_{i+1}}s_t$; it may also contain further primes, which are ignored.
It is a binary file, with each prime given as an |unsigned int|.
(There are 203,280,221 primes less than $2^{32}$, the largest of which
is $2^{32}-5$. Thus I'm implicitly assuming that $s_t<(2^{32}-5)^2
\approx 1.8\times10^{19}$.)
The output file is a short text file that reports large gaps.
Whenever the program discovers consecutive primes for which the gap
$p_{k+1}-p_k$ is greater than or equal to all previously seen gaps,
this gap is output (unless it is smaller than 256).
The smallest and largest
primes between $s_0$ and $s_t$ are also output, so that we can keep
track of gaps between primes that are
found by different instances of this program.
The compile-time parameter |lsize| is somewhat delicate. We need
$8|qsize|\times|lsize|$ bytes of {\mc RAM}, so we don't want |lsize|
to be too large. On the other hand |lsize| has to be large enough to
to accommodate the queue lists as the program runs. A large |lsize|
might force |qsize| to be small, and that will slow things down because
primes will be before they're needed.
@d del ((long long)(1<<23)) /* the segment size $\delta$, a multiple of 256 */
@d qsize (1<<7) /* the queue size $q$ */
@d kmax 35000000 /* an index such that $p_{kmax}^2>s_t$ */
@d ksmall 156000 /* an index such that $p_{ksmall}>\delta/4$ */
@d bestgap 1000 /* lower bound for gap reporting, $\ge512$, a multiple of 4 */
@d lsize (1<<20) /* size of queue lists, hopefully big enough */
@c
#include
#include
#include
FILE *infile, *outfile;
unsigned int prime[kmax]; /* $|prime|[k]=p_{k+1}$ */
unsigned int start[ksmall]; /* indices for initializing a segment */
unsigned int plist[qsize][lsize]; /* primes queued for a segment */
unsigned int slist[qsize][lsize]; /* their relative starting points */
int count[qsize]; /* number of entries in queue lists */
int countmax; /* the largest count we've needed so far */
unsigned long long sieve[2+del/256];
unsigned long long s0; /* beginning of the first segment */
int tt; /* number of segments */
unsigned long long st; /* ending of the last segment */
unsigned long long lastprime; /* largest prime so far, if any */
unsigned long long sv[11]; /* bit patterns for the smallest primes */
int rem[11]; /* shift amounts for the smallest primes */
char nu[0x10000]; /* table for counting bits */
int timer,starttime;
@@;
main(int argc, char*argv[])
{
register j,jj,k;
unsigned long long x,xx,y,z,s,ss;
int d,dd,ii,kk,qq;
starttime=timer=time(0);
@;
@;
@;
@;
for (ii=0;ii;
@;
printf("(Finished; the last segment took %d sec; total time %.6g hours.)\n",
time(0)-timer,((double)(time(0)-starttime))/3600.0);
printf("(The maximum list size needed was %d.)\n",countmax);
}
@ @=
if (argc!=5 || sscanf(argv[1],"%llu",&s0)!=1 ||
sscanf(argv[2],"%d",&tt)!=1) {
fprintf(stderr,"Usage: %s s[0] t inputfile outputfile\n",argv[0]);
exit(-1);
}
infile=fopen(argv[3],"rb");
if (!infile) {
fprintf(stderr,"I can't open %s for binary input!\n",argv[3]);
exit(-2);
}
outfile=fopen(argv[4],"w");
if (!outfile) {
fprintf(stderr,"I can't open %s for text output!\n",argv[4]);
exit(-3);
}
st=s0+tt*del;
if (del%256) {
fprintf(stderr,"Oops: The sieve size %d isn't a multiple of 256!\n",del);
exit(-4);
}
if (s0&3) {
fprintf(stderr, "The starting point %llu isn't a multiple of 4!\n", s0);
exit(-5);
}
if (s0*s0;
printf("Sieving between s[0]=%llu and s[t]=%llu:\n",s0,st);
@ Primes are divided into three classes: small, medium, and large.
The small primes (actually ``tiny'') are less than 32; they appear
at least twice in every octabyte of the sieve.
The large primes are greater than $\delta/4$; they appear at most once
in every segment of the sieve.
Since our sieve represents integers of the form $4k+1$, every
segment consists of $\delta/256$ octabytes.
@d ddel (del/4) /* number of bits per segment */
@=
for (k=0;;k++) {
if (k>=kmax) {
fprintf(stderr,"Oops: Please recompile me with kmax>%d!\n",kmax);
exit(-7);
}
if (fread(&prime[k],sizeof(unsigned int),1,infile)!=1) {
fprintf(stderr,"The input file ended prematurely (%d^2<%llu)!\n",
k? prime[k-1]: 0,st);
exit(-8);
}
if (k==0 && prime[0]!=2) {
fprintf(stderr,"The input file begins with %d, not 2!\n",prime[0]);
exit(-9);
} else if (k>0 && prime[k]<=prime[k-1]) {
fprintf(stderr,"The input file has consecutive entries %d,%d!\n",
prime[k-1],prime[k]);
exit(-10);
}
if (prime[k]=ksmall) {
fprintf(stderr,"Oops: Please recompile me with ksmall>%d!\n",ksmall);
exit(-11);
}
dd=k+1; /* |dd| will be the index of the first large prime */
}
if (((unsigned long long)prime[k])*prime[k]>st) break;
}
printf("%d primes successfully loaded from %s\n",k,argv[3]);
@*Sieving. Let's say that the prime $p_k$ is ``active'' if $p_k^2=
for (k=1;((unsigned long long)prime[k])*prime[k]>2)-(long long)((s0>>2)%prime[k]);
if (j<0) j+=prime[k];
if (k

=lsize) {
fprintf(stderr,"Oops: Please recompile me with lsize>%d!\n",lsize);
exit(-12);
}
}
plist[jj][count[jj]]=prime[k];
slist[jj][count[jj]]=j;
count[jj]++;
}
}
kk=k;
@;
@ Primes less than 32 will appear at least twice in every octabyte of
the sieve. So we handle them in a slightly more efficient way, unless
they're initially inactive.
@=
for (k=1;prime[k]<32 && k=
@;
ss=s0; /* base address of the next segment */
sieve[1+del/256]=-1; /* store a sentinel */
@ @=
{
s=ss, ss=s+del, qq=ii%qsize; /* $s=s_i$, $|ss|=s_{i+1}$ */
if (qq==0) {
j=time(0);
printf("Beginning segment %llu (after %d sec)\n",s,j-timer);
fflush(stdout);
timer=j;
}
@;
@;
@;
@;
}
@ @=
for (j=0;j>rem[k]);
}
sieve[j]=z;
}
@ Now we want to set 1 bits for every odd multiple of |prime[k]|
in the current segment, whenever |prime[k]| is active.
The bit for the integer $s_i+4j+1$ is
|1<<(j&0x3f)| in |sieve[j>>6]|, for $0\le j<\delta/4$.
@=
if (dd>=kk) { /* no large primes are active */
for (k=d;k>6] |= 1LL<<(j&0x3f);
start[k]=j-ddel;
}
}@+else@+{
for (k=d;k

>6] |= 1LL<<(j&0x3f);
start[k]=j-ddel;
}
@;
}
@ Each |slist| entry is an offset relative to the beginning of the
previous segment with |qq=0|. Thus, for example, |slist[1]| holds
numbers of the form |ddel+x|, |ddel*(1+qsize)+x|, |ddel*(1+2*qsize)+x|, etc.,
where $0\le x<|ddel|$.
@=
for (j=k=0;k=(qq+1)*ddel) /* big big prime has ``looped'' the queue */
plist[qq][j]=plist[qq][k], slist[qq][j]=slist[qq][k]-qsize*ddel, j++;
else {
register unsigned int nstart;
jj=slist[qq][k]%ddel;
sieve[jj>>6] |= 1LL<<(jj&0x3f);
nstart=slist[qq][k]+plist[qq][k];
jj=(nstart/ddel)%qsize; /* possibly |jj=qq|; that's no problem */
if (count[jj]==countmax) {
countmax++;
if (countmax>=lsize) {
fprintf(stderr,"Oops: Please recompile me with lsize>%d!\n",lsize);
exit(-13);
}
}
plist[jj][count[jj]]=plist[qq][k];
slist[jj][count[jj]]=(jj>=qq? nstart: nstart-qsize*ddel);
count[jj]++;
}
}
count[qq]=j;
@ The test here is `|jj>qq|' when we construct an |slist| entry,
not `|jj>=qq|' as before. Do you see why?
@=
for (k=kk;((unsigned long long)prime[k])*prime[k]>2;j>6] |= 1LL<<(j&0x3f);
if (k

=lsize) {
fprintf(stderr,"Oops: Please recompile me with lsize>%d!\n",lsize);
exit(-14);
}
}
plist[jj][count[jj]]=prime[k];
slist[jj][count[jj]]=(jj>qq? j: j-qsize*ddel);
count[jj]++;
}
}
kk=k;
@* Processing gaps.
If $p_{k+1}-p_k\ge512$, we're bound to find an octabyte of all 1s in the
sieve between the 0~for~$p_k$ and the 0~for~$p_{k+1}$. In such cases,
we check for a potential ``kilogap'' (a gap of length 1000 or more).
Complications occur if the gap appears at the very beginning or end of
a segment, or if an entire segment is prime-free. Further complications
arise because our sieve contains only half of the potential primes.
I've tried to get the logic correct, without slowing the program down.
But if any bugs are present in this code, I suppose they are due to a fallacy
in this aspect of my reasoning.
Two sentinels appear at the end of the sieve, in order to speed up
loop termination: |sieve[del/256]=0| and |sieve[1+del/256]=-1|.
@=
j=0, k=-100;
while (1) {
for (;sieve[j]==-1;j++);
if (j==del/256) x=ss;
else @;
if (k>=0) @@;
else if (lastprime==0) @;
@;
if (j==del/256) break;
for (j++;sieve[j]!=-1;j++);
if (j;
break;
}
}
for (z=ss-1;z>lastprime;z-=4) if (isprime(z)) {
lastprime=z;@+break;
}
donewithseg:@;
@ @=
{
for (z=s+3;z=
{
y=~sieve[j];
y=y&-y; /* extract the rightmost 1 bit */
@;
x=s+(j<<8)+(y<<2)+1; /* this upperbounds the first prime after a gap */
}
@ @=
{
for (y=~sieve[k],z=y&(y-1);z;y=z,z=y&(y-1)); /* the leftmost 1 bit */
@;
lastprime=s+(k<<8)+(y<<2)+1;
}
@ As far as I know, the following method is the fastest way to compute
binary logarithms on an Opteron computer (which is the machine
I'm targeting here).
@=
y--;
y=nu[y&0xffff]+nu[(y>>16)&0xffff]+nu[(y>>32)&0xffff]+nu[(y>>48)&0xffff];
@ With a more extensive table, I could count the 1s in an arbitrary
binary word. But seventeen table entries are sufficient for present purposes.
@=
for (j=0;j<=16;j++) nu[((1<=
if (j>=k+bestgap/256) {
xx=x;
zloop:@+if (x-lastprime=0? lastprime: s);
for (z=((lastprime&~2)+bestgap-2);z>y;z-=4) if (isprime(z)) {
lastprime=z, k=0;@+goto zloop;
}
z=(lastprime&~2)+bestgap+2;
if (z;
lastprime=x, x=xx;@+goto zloop;
}
done_here:@;
@ @=
{
if (x-lastprime>=bestgap) {
fprintf(outfile,"%llu is followed by a gap of length %d\n",
lastprime,x-lastprime);
fflush(outfile);
}
}
@ @=
if (lastprime) {
fprintf(outfile,"The final prime is %llu = s[t]-%d.\n",
lastprime,st-lastprime);
}@+else fprintf(outfile,"No prime numbers exist between s[0] and s[t].\n");
@*Random numbers. The following code comes directly from
\.{rng.c}, the random number generator in Section 3.6.
@d KK 100 /* the long lag */
@d LL 37 /* the short lag */
@d MM (1L<<30) /* the modulus */
@d mod_diff(x,y) (((x)-(y))&(MM-1)) /* subtraction mod MM */
@=
long ran_x[KK]; /* the generator state */
void ran_array(long aa[],int n)
{
register int i,j;
for (j=0;j=
long ran_arr_buf[QUALITY];
long ran_arr_dummy=-1, ran_arr_started=-1;
long *ran_arr_ptr=&ran_arr_dummy; /* the next random number, or -1 */
void ran_start(long seed)
{
register int t,j;
long x[KK+KK-1]; /* the preparation buffer */
register long ss=(seed+2)&(MM-2);
for (j=0;j=MM) ss-=MM-2; /* cyclic shift 29 bits */
}
x[1]++; /* make x[1] (and only x[1]) odd */
for (ss=seed&(MM-1),t=TT-1; t; ) {
for (j=KK-1;j>0;j--) x[j+j]=x[j], x[j+j-1]=0; /* "square" */
for (j=KK+KK-2;j>=KK;j--)
x[j-(KK-LL)]=mod_diff(x[j-(KK-LL)],x[j]),
x[j-KK]=mod_diff(x[j-KK],x[j]);
if (is_odd(ss)) { /* "multiply by z" */
for (j=KK;j>0;j--) x[j]=x[j-1];
x[0]=x[KK]; /* shift the buffer cyclically */
x[LL]=mod_diff(x[LL],x[KK]);
}
if (ss) ss>>=1; else t--;
}
for (j=0;j=
ran_start(314159L);
@ After calling |ran_start|, we get new randoms by saying
``|x=ran_arr_next()|''.
@d ran_arr_next() (*ran_arr_ptr>=0? *ran_arr_ptr++: ran_arr_cycle())
@=
long ran_arr_cycle()
{
if (ran_arr_ptr==&ran_arr_dummy)
ran_start(314159L); /* the user forgot to initialize */
ran_array(ran_arr_buf,QUALITY);
ran_arr_buf[KK]=-1;
ran_arr_ptr=ran_arr_buf+1;
return ran_arr_buf[0];
}
@*Double precision multiplication.
We'll need a subroutine that computes the 128-bit
product of two 64-bit integers. The product goes into |acc_hi| and
|acc_lo|.
@=
unsigned long long acc_hi,acc_lo;
void mult(unsigned long long x,unsigned long long y)
{
register unsigned int xhi,xlo,yhi,ylo;
unsigned long long t;
xhi=x>>32, xlo=x&0xffffffff;
yhi=y>>32, ylo=y&0xffffffff;
t=((unsigned long long)xlo)*ylo, acc_lo=t&0xffffffff;
t=((unsigned long long)xhi)*ylo+(t>>32), acc_hi=t>>32;
t=((unsigned long long)xlo)*yhi+(t&0xffffffff);
acc_hi+=((unsigned long long)xhi)*yhi+(t>>32); acc_lo+=(t&0xffffffff)<<32;
}
@*Prime testing. I've saved the most interesting part of this program for
last. It's a subroutine that tries to decide whether a given |long long|
number~|z| is prime. In the experiments I'm doing, |z| lies
between $2^{58}$ and $2^{59}$ (but the program does not require that
|z| be in this range).
If it's easy to determine that |z| is definitely
not prime, the subroutine returns~0.
But if |z| passes the Miller--Rabin test for 32 different random
witnesses, the subroutine returns~1.
A nonprime number almost never returns~1. In fact, a nonprime number
that passes the test even once is sufficiently interesting that
I'm printing it out.
Here I implement Algorithm 4.5.4P, using the fact that $z\bmod4=3$,
and using ``Montgomery multiplication'' for speed (exercise 4.3.1--41).
@=
int isprime(unsigned long long z)
{
register int k,lgz,rep;
long long x,y,q;
unsigned long long m,zp,goal;
@;
@;
for (rep=0;rep<32;rep++) {
P1: x=ran_arr_next();
P2: q=z>>1;
for (y=x,m=1LL<<(lgz-2); m; m>>=1) {
@;
if (m&q) @;
}
if (y!=goal && y!=z-goal) {
if (rep) {
fprintf(outfile,"(%lld is a pseudoprime of rank %d)\n",z,rep);
fflush(outfile);
}
return 0;
}
}
return 1;
}
@ Miller and Rabin's algorithm is based on the fact that
$x^q\equiv\pm1$ (modulo~|z|) when |z| is prime and $q=(z-1)/2$.
The loop above actually computes $(2^{64}(x/2^{64})^q)\bmod z$,
so the result should be $(\pm2^{64})\bmod z$.
Montgomery's method also needs the constant $z'$ such that $zz'\equiv1$
(modulo~$2^{64}$).
@=
for (lgz=63,m=0x8000000000000000; (m&z)==0; m>>=1,lgz--);
for (k=lgz,goal=m;k<64;k++) {
goal+=goal;
if (goal>=z) goal-=z;
} /* now $|goal|=2^{64}\bmod z$ */
@;
@ Here I'm using ``Newton's method.'' (If $z\bmod4=1$, the first step
should be changed to |zp=(z&4? z^8: z)|.)
@=
{
zp=(z&4? z: z^8); /* $zz'\equiv1$ (modulo $2^4$), because $z\bmod4=3$ */
zp=(2-zp*z)*zp; /* now $zz'\equiv1$ (modulo $2^8$) */
zp=(2-zp*z)*zp; /* now $zz'\equiv1$ (modulo $2^{16}$) */
zp=(2-zp*z)*zp; /* now $zz'\equiv1$ (modulo $2^{32}$) */
zp=(2-zp*z)*zp; /* now $zz'\equiv1$ (modulo $2^{64}$) */
}
@ To compute $xy/2^{64}\bmod z$, we compute the 128-bit product $xy=
2^{64}t_1+t_0$, then subtract $(z't_0\bmod2^{64})z$ and return the
leading 64~bits.
@=
{
mult(y,y);
y=acc_hi;
mult(zp*acc_lo,z);
if (y=
{
mult(x,y);
y=acc_hi;
mult(zp*acc_lo,z);
if (y>1)
@=
{
long long u,v,t;
t=magic-(z>>1);
v=z;
B4:@+ while ((t&1)==0) t>>=1;
B5:@+ if (t>0) u=t;@+ else v=-t;
B6:@+ t=(u-v)/2;
if (t) goto B4;
if (u>1) return 0;
}
@*Index.