素数を取り出すプログラム