Формула проверки числа на простоту

[Someone]

Я думаю, что если выкинуть из всех этих формул всякие суммы-произведения, то они станут ещё быстрее и сравняются с пробным делением.

[ludwig51]

Someone в сообщении #1198205 писал(а):

Я думаю, что если выкинуть из всех этих формул всякие суммы-произведения, то они станут ещё быстрее и сравняются с пробным делением.

Верно.
Например, число x=123456789123457 - простое, и проверка делением на все нечётные цифры до $\sqrt{x}$ длится 1,5 сек (процессор 16 гегаГерц)

[Xaositect]

ludwig51 в сообщении #1211367 писал(а):

процессор 16 Gb

Простите, что?

[ludwig51]

Xaositect в сообщении #1211369 писал(а):

ludwig51 в сообщении #1211367 писал(а):

процессор 16 Gb

Простите, что?

Описка. Исправил.

[Xaositect]

А такого не бывает, если у Вас не сверхсекретные процессоры.
Впрочем, в любом случае 1.5с как-то много, у меня на 4GHz i5 это занимает меньше одной десятой секунды.

[ludwig51]

Xaositect в сообщении #1211377 писал(а):

А такого не бывает, если у Вас не сверхсекретные процессоры.
Впрочем, в любом случае 1.5с как-то много, у меня на 4GHz i5 это занимает меньше одной десятой секунды.

У меня программа на визуал Бейсике совместно с Excel, не скомпилированная.
Возможно, если скомпилировать, то будет быстрее.
А текст такой:
Private Sub cmdStart_Click()

Dim x As Double
Dim i As Double
Dim b As Boolean
On Local Error GoTo mExit
x = Range("B3")
Range("C3") = ""

If x / 2 = Int(x / 2) Then
i = 2
If x / 2 > 1 Then
b = True
' No Prime
End If
GoTo m
End If

For i = 3 To Int(Sqr(x)) Step 2
If x / i = Int(x / i) Then
b = True
' No Prime
Exit For
End If
Next i

m:
If b Then
Range("C3") = "No Prime"
Else
Range("C3") = "Prime"
End If
Range("E3") = CStr(i) 'минимальный делитель
Exit Sub
mExit:
MsgBox Error
End Sub

[Someone]

(Оффтоп)

ludwig51 в сообщении #1211367 писал(а):

гегаГерц

Тихий ужас.

[ludwig51]

Someone в сообщении #1211399 писал(а):

(Оффтоп)

ludwig51 в сообщении #1211367 писал(а):

гегаГерц

Тихий ужас.

(Оффтоп)

Ошибся в грамматике. Извините.
1 гигагерц=1ГГц=1GHz=$10^9$ Гц=$10^9Hz$