a:[];range(2,542){|i|f:1;range(2,i){f*=i%it>0?1:0;}if(f>0)a~=[i];}99.times{a[a[it+1]-a[it]-1].p;}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page