Sphenic Numbers by rickrickrick

p={}for i=2,762 do
d=1;c=0;n=i;k=1
while k<=#p do
if(n%p[k]<1)then c,d,n=c+d,3,n/p[k]else
k=k+1;d=1
end
end
if(c<1)then
p[#p+1]=i
end
c=c~=3 or print(i)end

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

download

return to the top page