for(a=[n=i=1];i=i?:100-n++;--i||println(p))a[p=a[n]?:n*i]=n
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page