Question

5000万以内的素数有多少个?

Answer 1

我用了将近4各半小时计算出来的,不知道上面的仁兄使用的什么计算机,

最后一个素数是49999991,个数是3001134,VB的算法如下

Private Sub Command1_Click()

i = 2

For n = 4 To 50000000

a = 2

Do While 1

If n Mod a = 0 Then

Exit Do

Else

a = a + 1

End If

If a > Sqr(n) Then

i = i + 1

Label1.Caption = "当前素数:" & n & ",总个数：" & i

Exit Do

End If

DoEvents

Loop

Next

从算法看仁兄707989963的是不是不包含2啊,所以少了一个

怎么看这两种算法差不多,是不是我加入了即时显示结果,拖累了速度啊