>>629
遅くても構わなければ、PowerShellではとても簡潔に書ける。

$p = 2..10000
while ($p) {
　　$p[0]
　　$p = @($p |? {$_ % $p[0]})
}