Practical Numbers by pooq

do i=1 to 500
k=1
j=1
do while j<=k
k=k+j*0**(i//j)
j=j+1
end
if i<k then say i
end

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

download

return to the top page