$ :=list;for(i,2,541,f:=1;for(j,2,i-1,f=f*if(i%j>0,1,0))<1or$push(i))for(i,0,98,$at($at(i+1)- $at(i)-1)println)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page