set i 9
while {[incr i]<763} {set k [set p 1]
while {[incr p]<$i&&$i%($p*$p)} {if {$i%$p<1} incr\ k}
if \$k==7 {puts $i}}