とりあえずRND()で適当な数字を出して、IF (NUM MOD 素数)==0 THEN I=I+1を4つ並べてI==1 THENにしちゃうかなぁ 出るまで降り続けるスタイル