for(i=p=m=1;i<777;i++,m=p=1){l:for(k=i;--k>1;)if(!(i%k)){for(h=k;--h>1;)if(!(k%h))continue l;p++;m*=k}p-4?0:i-m?0:print(i)}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page