Sphenic Numbers by *yuko*

var i,j,k:comp;begin repeat i:=i+1;k:=7;for j:=2to i do k:=k*ord(i mod(j*j)>0)-ord(i mod j=0);if k=0then writeln(i)until i>761end.

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page