procedure main()
every i:=1to*(a:=list(3e3,0))do{every(r:=0)+:=!i
a[i]=0&write(i)
a[r+i]:=1}
end