Eratosthenes

gistfile1.txt

Eratosthenes(n){
	e[1]:=0
(1)	for i:=2 to n do
(2)		e[i]:=1
	p:=2
(3)	while p*2<n do{
		j:=p*2
(4)		while(j<n)do{
(5)			e[j]:=0
			j:=j+p
		}
(6)    		repeat
			p:=p+1
(7)		until e[p]=1
  	}
(8)	return(a)
}