use bigint;map{$i=0;0while$a[++$i]||$i>2&&2>bgcd$i$p;$a[$p=$i]=print$i,$/}0..99
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page