set i 9\x0d while {[incr i]<763} {set k [set p 1]\x0d while {[incr p]<$i&&$i%($p*$p)} {if {$i%$p<1} incr\ k}\x0d if \$k==7 {puts $i}}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page