1
2#define TRUE 1
3#define FALSE 0
4#define SIZE 8190
5
6char flags[SIZE+1];
7
8main()
9{
10	register int i, prime, k, count, iter;
11	for (iter=1;iter<=100;iter++) 		{
12		count=0;
13		for (i=0;i<=SIZE;i++)
14			flags[i]=TRUE;
15		for (i=0;i<=SIZE;i++) {
16			if (flags[i]) {
17				prime=i+i+3;
18				for (k=i+prime;k<=SIZE;k+=prime)
19					flags[k]=FALSE;
20				count++;
21			}
22		}
23	}
24	return 0;
25}
26
27