Sphenic Numbers by pooq

for n=2to 763c=6
for i=2to n-1if 0=mod(n/i,i)break
c=c-!mod(n,i)next
if!c?i
next

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

download

return to the top page