求1000以内质数公式

alwstr

我这里有个求100以内质数的公式，可参考

=TEXT(SMALL(IF(MMULT(--(MOD(ROW(2:100),TRANSPOSE(ROW(2:100)))=0),ROW(2:100)^0)=1,ROW(2:100),10000),ROW(1:99)),"[>1000]"""";0")

doitbest

支持29楼的看法,函数处理这种问题勉为其难!

lhx120824

原帖由 山菊花 于 2011-3-26 11:53 发表
改一改，让piny版主的公式提速。
C2输入最小质数2
C3=C2+MATCH(,MMULT(N(MOD(C2+ROW($1:$20),TRANSPOSE(C$2:C2))=0),C$2:C2),)
公式2，长点：
C3=C2+MATCH(,MMULT(N(MOD(C2+ROW($1:$20),TRANSPOSE(C$2:INDEX(C:C ...

其中的数值20是要随着范围的扩大而变化的。能否把20也改成变化的？

piny

改成动态 可能会影响效能

需视题意而修正

lhx120824

原帖由 piny 于 2011-3-27 23:13 发表
改成动态 可能会影响效能

需视题意而修正

比如你的公式到1129后就出现错误，换成30，就能求到1327，换,50，就能求到19609，但越大越慢，能动态随row（）变化最好。这个修正值如何确定？

Zamyi

原帖由 灰袍法师 于 2011-3-26 17:40 发表
VBA做就很简单了，而且速度比数组公式快几万倍

27楼整批处理速度会更快，唯一缺点是，循环到i-1，实际上只需要循环到 i^0.5

所以数值大的时候就会非常慢( i^0.5 变成 i，i=100万的时候就慢一千倍，不可接受吖) ...

找下一个质数，此例当然不错，但27楼的缺点还有：是合数的不必去检验，比如i^0.5=997，实际检查168个质数就可以了：
Sub getZS()
Dim arr(), f As Boolean
n = 1000
ReDim arr(n - 1)
arr(0) = 2
m = 1
For i = 3 To n Step 2
   Do While arr(j) * arr(j) <= i And j < m
      If i Mod arr(j) = 0 Then f = True: Exit Do
      j = j + 1
   Loop
If Not f Then
  arr(m) = i
  m = m + 1
End If
f = False
j = 0
Next
[a1].Resize(m, 1) = Application.Transpose(arr)
End Sub

wddn

这个问题的关键是数组中的元素少一点，才能有较快的运算速度：
E2=2
E3=3
E4=5
E5=MIN(IF(MMULT(TRANSPOSE(E$2:E4),--(MOD(6*ROUND(E4/6,)+{1,5,7,11,13,17,19},E$2:E4)=0))=0,6*ROUND(E4/6,)+{1,5,7,11,13,17,19}))
数组公式，下拖。

贝妮

A1:A1229输入：=TRANSPOSE(zs(10000))，ctrl+shift+ebter三键结束，求10000内质数快得不得了

softy

lhx120824 发表于 2011-3-27 23:25
比如你的公式到1129后就出现错误，换成30，就能求到1327，换,50，就能求到19609，但越大越慢，能动态随ro ...

=E3+MATCH(,MMULT(N(MOD(E3+ROW($1:$20)*2,TRANSPOSE(E$3:E3))=0),E$3:E3),)*2

把山菊花改进后的公式再简单修改下,就能得到更大的质数表了,试了下,这个公式最大到15689,如果把ROW($1:$20)换成30,30000以内的质数毫无压力(以上的未测试),而且似乎速度也快了不少

titi012

我也来一个,
C3输入,最好用多单元格公式.
=SMALL(IF(FREQUENCY(ROW($2:$500)*COLUMN($B:$AF),ROW($3:$1000))=0,ROW($3:$1001),9999),ROW()-2)
不适用于2,试了一下,运算还是比较多快的.