= raw numeric = [code] perl -le '$n=$ARGV[0];for$i(2..sqrt$n){(next)if$c[$i];for(2..$n/$i){$c[$i*$_]=1}}for(2..$n){(print)if!$c[$_]}' 10000000 [/code] = visual = [code] perl -e 'use Time::HiRes;print `tput clear`;$x=`tput cols`;$y=`tput lines`;$h=`tput home`;$r=`tput rev`;$o=`tput sgr0`;$n=$x*($y-1);for$i(2..sqrt$n+1){(next)if$c[$i];for(2..$n/$i){$c[$i*$_]=1}print"$h ";for(2..$n){print$c[$_]?" ":"$r $o"}print"$o\n";$|=1;Time::HiRes::sleep.02;$|=undef}' [/code]