incr d
while \$d<682 {if [incr n]%($d%6+2)<1 {puts $n;incr d 2}}