найти из указанного диапазона все простые числа

[мария2507]

необходимо найти из указанного диапазона все простые числа

[kim2]

=СУММПРОИЗВ(Ч(ОСТАТ(A1;(СТРОКА($A$1 :ИНДЕКС(A:A;A1))))=0))<3

ИСТИНА укажет простые числа.

[мария2507]

нее.... надо в модуле!!!

[андей]

Function prost(chis As Variant) As String
Dim gran, ind, j
If chis - Int(chis) <> 0 Then
prost = "СОСТАВНОЕ"
Exit Function
End If
gran = Abs(Int(-chis ^ 0.5))
ind = 1
For j = 2 To gran
If chis Mod j = 0 Then
prost = "СОСТАВНОЕ"
Exit Function
Else
ind = ind + 1
End If
Next j
If ind = gran Then prost = "ПРОСТОЕ"
End Function

[Aent]

http://ru.wikipedia.org/wiki/%D0%A0%...B8%D0%BD%D0%B0
http://ru.wikipedia.org/wiki/%D0%A0%...B0%D0%BC%D0%B0

[мария2507]

я уже всю википендию облазила(( все равно не понимаю какая диная формула для нахождения этих чисел(((

[андей]

СУММПРОИЗВ(Ч(ОСТАТ(A1;(СТРОКА($A$1 :ИНДЕКС(A:A;ОКРУГЛ(A1^0.5;0)))))=0) )=1
быстрее

[IgorGO]

Sub PrChi()
  r = 3
  Cells(1, 1) = 1: Cells(2, 1) = 2: Cells(3, 1) = 3:
  v = 3
  Do
    v = v + 2
    For i = 3 To v Step 2
      If r >= 50 Then Exit Sub
      If v Mod i = 0 Then Exit For
      If v / i < i Then r = r + 1: Cells(r, 1) = v: Exit For
    Next
  Loop Until False
End Sub

в строке If r >= 50 Then Exit Sub, замените 50 на любое число, сколько первых простых чисел вам надо. А предложенными выше формулами можете проверить являются ли сгенерированные числа простыми. Алгоритм сделан на интуиции, математически недоказан, возможны проколы...

[мария2507]

Loop Until False а что это???
и за что вы обозначили v? подскажите пожалуйста!!

[IgorGO]

v - это кандидат на звание простого числа, если оказывается действительно простым числом (согласно моего алгоритма) то записывается на лист.
кстати, алгоритм очень ускоренный, я не перебираю все числа до v, а лишь до определенного значения, своего для каждого v

Loop Until False а что это??? это окончание цикла. строка с значением 50 может быть вообще выброшена, а эта изменена на
Loop Until R<50