use bigint;map{$i=0;0while$a[++$i]||$i>2&&2>bgcd$i$p;$a[$p=$i]=print$i,$/}0..99