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;}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page