求满足2p*p+p+8=m*m-2m的所有素数p和正整数m

问题描述:

求满足2p*p+p+8=m*m-2m的所有素数p和正整数m

Private Sub Command1_Click()For i = 1 To 2000If Prime(Sum_Y(i)) = True And Prime(i) = False Then Print iNextEnd Sub'求素数函数Function Prime(ByVal n As Integer) As BooleanFor i = 2 To Int(Sqr(n))If n ...