a:[];2000.times{r:it-1;for(;r>0&&it%r>0;)r--;if(r<2)a~=[it];};
l:0;a.each{if(l+2==it)%f"%d,%d"(l,it).p;l=it;}