新手请问

新手请教
如果有两个连续自然数他们的乘积减去1后是素数   这样的两个自然数被称为友数   .编程求出[40,119]中有多少个这样的友数队

------解决方案--------------------------------------------------------
FOR I=40 TO 119
P=.T.
FOR J=2 TO I-1
IF MOD(I,J)=0
P=.F.
ENDIF
ENDFOR
IF P
?I
ENDIF
ENDFOR