dim a(5e5) for n=2to 2e5if a(n)?n for i=2to 13/log(n)a(n^i)=1next next
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page