***
***  TN V1.00 BY Tiger5392
***
***  用法：?TN(nExpr)  &&判断nExpr和nExpr+2是否为双胞胎数
***  参数：nExpr  为一素数，若nExpr+2也为素数，则称nExpr和nExpr+2为一对双胞胎数
***
PARAMETERS nNum
PRIVATE nNum,nNum1,cNum,nCnt1,nCnt2,lOk
SET TALK OFF
IF TYPE([nNum])!=CHR(78)
  RETURN [没有参数或参数不为数值]
ENDIF
IF INT(nNum)!=nNum OR nNum<2
  RETURN [参数应为大于1的正整数]
ENDIF
lOk=.T.
FOR nCnt=2 TO SQRT(nNum+2)
  IF MOD(nNum,nCnt)=0 OR MOD(nNum+2,nCnt)=0
    lOk=.F.
    EXIT
  ENDIF
ENDFOR
RETURN lOk
***EOF():2006-08-26  By Tiger5392