素数を求める系プログラム