***

***  FUNCTION DP V1.00 (C)Copyright 2006-2006 By Tiger5392

***

***    若两个自然连续数乘积减1后是素数，则称此两个自然数连续数为友数对，

***该素数称为友素数。例如：2*3-1=5，因此2与3是友数对，5是友素数。

***

***    那么如何计算n以内的所有大于2的自然数有多少个友数对呢?

***    设n是一个自然数，则其后的自然数为n+1。两个连续自然数是友数对的充

***分必要条件是n(n+1)-1为素数，称为友素数。定义函数DP(n)用来计算从2到n

***之间有多少友数对。则程序如下。

***

PARAMETERS nNum

PRIVATE nNum,nNum1,nNum2,nCnt1,nCnt2,lOk

SET TALK OFF

IF TYPE([nNum])!=CHR(78)

    RETURN [没有参数或参数不为数值]

ENDIF

IF INT(nNum)!=nNum OR nNum<2

    RETURN [参数应为大于1的正整数]

ENDIF