双子素数

 投稿者：しばっち  投稿日：2016年 6月 5日(日)15時02分12秒
  FOR I=1 TO 10000
   LET P1=6*I-1
   LET P2=6*I+1
   LET FL=0
   FOR J=3 TO SQR(P2) STEP 2
      IF MOD(P1,J)=0 OR MOD(P2,J)=0 THEN
         LET FL=1
         EXIT FOR
      END IF
   NEXT J
   IF FL=0 THEN
      LET L=L+1
      PRINT L;":";P1;P2
   END IF
NEXT I
END
 		 

戻る