program prime;

const
 max=500000000;

var
 i,j:integer;
 n:array[2..max] of integer;
 io:text;
 
begin

 writeln('List the prime numbers up to ',max);

 for i:= 2 to max do
  n[i]:=1;
 
 for i:= 2 to max do begin
 
  if n[i] = 1 then begin
   j:=i; writeln(j:10);
   repeat
    n[j]:=i;
    inc(j,i);
   until j>max;
  end;
 end;
  
end.