dim a(5e5)
for n=2to 2e5if a(n)?n
for i=2to 13/log(n)a(n^i)=1next
next