i=2:541;a=i[2>(!outer(i,i,"%%"))%*%!!i];write(a[diff(a)],T,1)