一款可瞬间判定素数的神奇小软件

moranhuishou · 发表于 2008-9-19 19:17

下面引用由数学爱好者A在 2008/09/19 06:24pm 发表的内容：
moranhuishou：先将字符串除以256进制的数，方法如下
字符串a1a2a3。。。an
建立一个新字符串和一个byte数组
取a1a2a3转换成整数后从a1a2a3。。。an中删除a1a2a3，和256比较，如果>=256就直接除256，如果< ...

数A先生：
因为我编程水平很低，有些语言并没有真正理解，之所以还能够写出一些程序，完全是“抠”出来的。
除法较难，我想按你的思路，我也还是能继续“抠”出来的。
您如果有时间，最好将代码写出。
天山草先生呢？

moranhuishou · 发表于 2008-9-19 19:51

下面是根据天山草先生给的代码统一整理的加减乘法运算程序（其中减法假定a>b）,运行还算正常，现就差除法。
希望哪位朋友写出来。
如不能，将数据类型设置好也行。

Private Sub Command1_Click()
Dim aa(100000) As Long    ';存放被加数的各位数字
Dim bb(100000) As Long    ';存放加数的各位数字
Dim cc(100000) As Long    ';存放和的各位数字

a = Text1.Text
b = Text2.Text

La = Len(a)       ';把 a 字串（被加数）的各位数码放在数组 aa(i)中
For i = 1 To La ';aa(1)为最低位，aa(La)为最高位
aa(i) = Mid(a, La - i + 1, 1)
Next i

Lb = Len(b)       ';把 b 字串（加数）的各位数码放在数组 bb(i)中
For i = 1 To Lb ';bb(1)为最低位，bb(La)为最高位
   bb(i) = Mid(b, Lb - i + 1, 1)
Next i

If La >= Lb Then LL = La Else LL = Lb
For i = 1 To LL
   cc(i) = aa(i) + bb(i)
Next i

c = ""          ';处理进位
For i = 1 To LL + 1
If cc(i) >= 10 Then
cc(i) = cc(i) - 10
cc(i + 1) = cc(i + 1) + 1 ';此处可能产生 cc(LL + 1) = 1 的问题';但不可能产生 cc(LL + 2) = 1 的问题
   End If


c = Trim$(Str$(cc(i))) & c
Next i

  Text3.Text = c

End Sub

Private Sub Command2_Click()
Dim aa(100000) As Long    ';存放减数的各位数字
Dim bb(100000) As Long    ';存放被减数的各位数字
Dim cc(100000) As Long    ';存放差的各位数字

a = Text1.Text
b = Text2.Text

La = Len(a)       ';把 a 字串（减数）的各位数码放在数组 aa(i)中
For i = 1 To La ';aa(1)为最低位，aa(La)为最高位
aa(i) = Mid(a, La - i + 1, 1)
Next i

Lb = Len(b)       ';把 b 字串（被减数）的各位数码放在数组 bb(i)中
For i = 1 To Lb ';bb(1)为最低位，bb(La)为最高位
   bb(i) = Mid(b, Lb - i + 1, 1)
Next i

If La >= Lb Then LL = La Else LL = Lb
For i = 1 To LL
   cc(i) = aa(i) - bb(i)
Next i

c = ""          ';处理进位
For i = 1 To LL
If cc(i) < 0 Then
cc(i) = cc(i) + 10
cc(i + 1) = cc(i + 1) - 1
   End If

c = Trim$(Str$(cc(i))) & c
Next i

  Text3.Text = c

End Sub

Private Sub Command3_Click()
Dim aa(100000) As Long    ';存放乘数a的各位数字
Dim bb(100000) As Long    ';存放乘数b的各位数字
Dim cc(100000) As Long    ';存放积的各位数字

a = Text1.Text
b = Text2.Text

La = Len(a): Lb = Len(b) ';把 a 字串（乘数a）的各位数码放在数组 aa(i)中，把 b 字串（乘数b）的各位数码放在数组 bb(i)中
Lc = La + Lb  ';积的位数等于a b位数之和
For i = 1 To La ';aa(1)为最低位，aa(La)为最高位
q = 1 + La - i

aa(i) = Val(Mid$(a, q, 1))
Next
For i = 1 To Lb
q = 1 + Lb - i

bb(i) = Val(Mid$(b, q, 1))
Next
For i = 1 To La
For j = 1 To Lb
p = i + j: q = p - 1

n = aa(i) * bb(j)
n0 = Int(n / 10)
n1 = n - 10 * n0
cc(q) = cc(q) + n1
cc(p) = cc(p) + n0 + Int(cc(q) / 10)
cc(q) = cc(q) - 10 * Int(cc(q) / 10)
Next j, i

c = ""  ';处理进位
If cc(Lc) = 0 Then
Lc = Lc - 1
End If
For i = Lc To 1 Step -1
c = c + Trim(Str(cc(i)))
Next
';For i = 1 To Lc: cc(i) = 0: Next  ';若不清零，下次调用出错

  Text3.Text = c

End Sub

天山草 · 发表于 2008-9-20 14:56

[这个贴子最后由天山草在 2008/10/08 07:41pm 第 2 次编辑]

';商为整数及小数的大数相除，可调用
';2008-10-08 版
Private Sub form_Click()
Open "相除结果.txt" For Output As #1

   Dim a1(1000) As Long ';……………… 被除数的各位数字
   Dim ay(1000) As Long  ';……………… 余数的各位数字（最后一次试商要修正时）
   Dim ayy(1000) As Long  ';………………余数的各位数字（最后一次试商不必修正时）
   Dim b1(1000) As Long ';……………… 除数的各位数字
   Dim c1(1000) As Long ';……………… 近似商与除数相乘后的各位数字

   Dim d(10) As Long

   Dim aa1 As String    ';作为被除数的输入字符串
   Dim bb1 As String    ';作为除数的输入字符串
   Dim pp As String    ';商的每一位
   Dim ppp As String    ';作为商的输出字符串
   Dim s1(1000) As Long  ';……………… 商的各位数字
   Dim js As Long       '; js 是商的位数加一
   Dim ta, tb, j, e As Long
   Dim fa As Long  ';………………………… 被除数的位数
   Dim fb As Long  ';………………………… 除数的位数


   aa1 = "324518553658426726783168636188160"
   bb1 = "324518553658426726783156020576256"
      ';商 = 1.00000000000000000000003887485557229067298154974417

   Print "被除数 = "; aa1: Print #1, "被除数 = "; aa1
   Print "  除数 = "; bb1: Print #1, "  除数 = "; bb1
   Print " 商 = ";: Print #1, " 商 = ";

   GoSub sub1
   Print ppp: Print #1, ppp
999: Close
   Exit Sub

sub1:
   Z = 50 ';需要计算的小数位数
   pp = "": ppp = "": mv = 0
   If Len(bb1) <= 2 Then aa1 = aa1 + "00": bb1 = bb1 + "00"  ';除数小于 3 位时
   mv = 0
   If Val(aa1) < Val(bb1) And Val(aa1) <> 0 Then    ';除数大于被除数时
      ppp = "0."
      z = z - 1
      aa1 = aa1 + "0"
      mv = 1
   End If

   If mv = 0 Then
      GoTo 2
      Else
1: If (Len(aa1) = Len(bb1) And aa1 < bb1) Or Len(Trim$(aa1)) < Len(Trim$(bb1)) Then ';被除数小于除数时
      ppp = ppp + "0"
      aa1 = aa1 + "0"
      z = z - 1
      GoTo 1
      Else
      GoSub sub3
      If Val(sy$) * Val(aa1) = 0 Then Return  ';余数或被除数为零停止计算
      GoTo 3
   End If
   End If
2:
   GoSub sub3

   If Val(sy$) * Val(aa1) = 0 Then Return    ';余数或被除数为零停止计算

   ppp = ppp + "."                         ';以下计算小数部分

3: For iv = 1 To Z                         '; Z 是事先设定的小数位数
   If Val(sy$) * Val(aa1) = 0 Then Return ';余数或被除数为零停止计算
   aa1 = sy$ + "0"
   GoSub sub3
4: Next iv
   Return


sub3:    ';大数相除
   ccc = 0
   vvv = 0  ';试余数不大于除数时的标志
   If (Len(aa1) = Len(bb1) And aa1 = bb1) Then pp = "1": sy$ = "0": GoTo 50
   If (Len(aa1) = Len(bb1) And aa1 < bb1) Or Len(Trim$(aa1)) < Len(Trim$(bb1)) Then ';被除数小于除数时
   pp = "0"
   sy$ = aa1
   GoTo 50
   End If


mv = 0 ';如果除数位数小于 3 位，则分子分母同放大 100 倍：
If Len(bb1) <= 2 Then aa1 = aa1 + "00": bb1 = bb1 + "00": mv = 1

fa = Len(aa1)  ';把被除数的各位数码放在数组 a1(i)中
For i = 1 To fa  ';a1(1)为最低位，a1(fa)为最高位
   a1(i) = Mid(aa1, fa - i + 1, 1)
Next i

   fb = Len(bb1)  ';把除数的各位数码放在数组 b1(i)中
For i = 1 To fb ';b1(1)为最低位，b1(fb)为最高位
   b1(i) = Mid(bb1, fb - i + 1, 1)
Next i

   ';以下取除数的近似数
e = b1(fb) * 1000 + (b1(fb - 1)) * 100 + b1(fb - 2) * 10 + b1(fb - 3) + 1
ta = fa: js = 0

For j = fa - fb + 1 To 1 Step -1    ';………… 做除法求商，求余数
   js = js + 1
   f = a1(ta) * 1000 + a1(ta - 1) * 100 + a1(ta - 2) * 10 + a1(ta - 3)
';取被除数的近似数
   s1(js) = Int(f / e) ';…………………………………… 试商
For i = 1 To fb    ';…………………………………… 求试商的积
c1(i) = b1(i) * s1(js)  ';…… 近似商与除数相乘后的各位数字
Next i

d(0) = 0
For i = 1 To fb - 1  ';…………………………………… 满 10 进位
   d(1) = Int((c1(i) + d(0)) / 10): c1(i) = c1(i) + d(0) - d(1) * 10
   d(0) = d(1)
Next i
c1(fb) = c1(fb) + d(0)

qq$ = ""
For i = fb To 1 Step -1    ';……………… 求试商的精确积
qq$ = qq$ & c1(i)          ';…… 试商与除数相乘后的精确积
Next i

For i = fb To 1 Step -1
   a1(ta - fb + i) = a1(ta - fb + i) - c1(i)
Next i
For i = 1 To fb
      If a1(ta - fb + i) < 0 Then
      a1(ta - fb + i) = a1(ta - fb + i) + 10
      a1(ta - fb + i + 1) = a1(ta - fb + i + 1) - 1
   End If
Next i
   a1(ta - 1) = a1(ta - 1) + a1(ta) * 10
   ta = ta - 1
Next j ';至此，已初步算出最后的试商

a1(fb - 1) = a1(fb - 1) Mod (10)

For i = fb To 1 Step -1
ayy(i) = a1(i)       ';试余数的各位数码
Next

ssy$ = "" ';以下做出试余数的字符串 ssy$
For i = fb To 1 Step -1
ssy$ = ssy$ & ayy(i)
11: Next i

If (Len(ssy$) = Len(bb1) And ssy$ > bb1) Or Len(Trim$(ssy$)) > Len(Trim$(bb1)) Then
   vvv = 1 ';试余数大于除数时的标志
   For i = 1 To fb ';试余数减去除数，得到正确余数 sy$
   ay(i) = ayy(i) - b1(i)
      If ay(i) < 0 Then
      ay(i) = ay(i) + 10
      ayy(i + 1) = ayy(i + 1) - 1
      End If
   Next i
   sy$ = ""          ';把 ay(i) 组装成 sy$
   For i = 1 To fb
   sy$ = Trim$(Str$(ay(i))) & sy$
   Next i
71: If Mid$(sy$, 1, 1) = " " Or Mid$(sy$, 1, 1) = "0" Then sy$ = Mid$(sy$, 2) Else GoTo 72
GoTo 71 ';去掉结果中的多余 0
End If
72:
For i = 1 To fb - 1
   c1(1) = a1(i) - b1(i)
   ay(i) = c1(1) ';最后一次试商要修正时，这就是余数各位数（除最高位）
If c1(1) < 0 Then
   ccc = -1
   c1(1) = c1(1) + 10: a1(i + 1) = a1(i + 1) - 1
End If
Next i
c1(1) = a1(fb) - b1(fb)

ay(fb) = c1(1)  ';最后一次试商要修正时，这就是余数的最高位

If c1(1) >= 0 Then       '; c(1) 不是负数时最后一次试商要修正
   s1(js) = s1(js) + 1    '; 所谓修正就是加一
End If

For i = js To 1 Step -1
If s1(i) >= 10 Then ';由于修正，商的某一位有大于10者，要调整进位
   s1(i) = s1(i) - 10: s1(i - 1) = s1(i - 1) + 1
End If
Next i

If js = 1 Then    ';以下做出商的字符串 pp
   pp = s1(js)
End If
If js >= 2 Then
   pp = 10 * s1(1) + s1(2)
End If
For i = 3 To js
pp = pp & s1(i)
Next i

If vvv = 1 Then GoTo 50  ';试余数大于除数

10: sy$ = "" ';以下做出余数的字符串 sy$
If ccc = -1 Then ';最后一次试商不必修正时的余数
For i = fb To 1 Step -1
If ayy(i) <> 0 Then yyy = 1
If ayy(i) = 0 And yyy = 0 Then GoTo 20
sy$ = sy$ & ayy(i)
20: Next i
End If

If ccc = 0 Then ';最后一次试商须修正时的余数
For i = fb To 1 Step -1
If ay(i) <> 0 Then yyy = 1
If ay(i) = 0 And yyy = 0 Then GoTo 30
sy$ = sy$ & ay(i)
30: Next
End If
If Mid(sy$, 1, 1) = "-" Then ccc = -1: GoTo 10 ';余数为负，重做余数
40: If Mid(sy$, 1, 1) = "0" Then sy$ = Mid(sy$, 2) ';去掉余数前面的多余零
If Mid(sy$, 1, 1) = "0" Then GoTo 40

50: If sy$ = "" Then sy$ = "0"
If mv = 1 And sy$ <> "0" Then sy$ = Mid(sy$, 1, Len(sy$) - 2)
If mv = 1 And sy$ = "0" Then sy$ = "0"
ppp = ppp + pp    ';包括整数及小数的商

90: Return

End Sub




[br][br][color=#990000]-=-=-=-=- 以下内容由 天山草 在时添加 -=-=-=-=-
计算示例：
aa1 = "1230": bb1 = "123"    ';10
   aa1 = "1230": bb1 = "1230"    ';1
   aa1 = "12300": bb1 = "123" ';100
   aa1 = "1": bb1 = "6338327" ';0.000000157770339081590457545027260348038212607206917535179
   aa1 = "87988067368960": bb1 = "17592186044416"  ';5.001542568206787109375
   aa1 = "879500001": bb1 = "7036"  ';125000.00014212620807276861853325753268902785673678226264
   aa1 = "1": bb1 = "10"  ';0.1
   aa1 = "1": bb1 = "1000"  ';0.001
   aa1 = "419585739361302": bb1 = "17592186044416"  ';23.8506879305363099774695001542568206787109375
   aa1 = "10000": bb1 = "100"  ';100
   aa1 = "27137146880": bb1 = "17592186044416"  ';0.001542568206787109375
   aa1 = "4195857393613021": bb1 = "123"  ';34112661736691.22764227642276422764227642276422764227642276422764
   aa1 = "10001": bb1 = "11" ';909.18181818181818181818181818181818181818181818181818
   aa1 = "10001": bb1 = "1"    ';10001
   aa1 = "0": bb1 = "12345"    ';0
   aa1 = "100001": bb1 = "10"  ';10000.1
   aa1 = "5192025329987041388590727811603754": bb1 = "20282409603651670423947251286016"
      ';商 = 255.98661260899999999999999999999995804365651668974965
   aa1 = "271528547786239939768517616341": bb1 = "20282409603651670423947251286016"
      ';商 = 0.0133873909999999999999999999999926525369069970125082
   aa1 = "4344456764579839036296281861471": bb1 = "324518553658426726783156020576256"
      ';商 = 0.0133873910000000000000000000000388748555722906729815

天山草 · 发表于 2008-9-20 15:04

下面引用由数学爱好者A在 2008/09/16 10:37am 发表的内容：
天山草先生：这样的效率可能有些低，首先应该将字符串变成byte类型数组。这样一个数就变成了256位进制的数。再按乘法就可以运算了！

------------------------------------------------
请“数A”先生将完整的程序贴出，可否？

天山草 · 发表于 2008-9-20 15:09

下面引用由moranhuishou在 2008/09/19 07:51pm 发表的内容：
现就差除法。希望哪位朋友写出来。...

---------------------------------------------
楼主先生，除法程序已在上面贴出。
这些天关注毒奶粉事件，冷落了网友，请见谅。

moranhuishou · 发表于 2008-9-20 17:06

非高手不能为。非常棒！非常感谢！

moranhuishou · 发表于 2008-9-21 18:03

有一个疑问：
以上的程序代码的编写本来就应该是程序开发者的事情，用户只要写 + - * / ...就行了。为什么开发者要把这些工作转嫁给用户？

天山草 · 发表于 2008-9-21 18:32

下面引用由moranhuishou在 2008/09/21 06:03pm 发表的内容：
有一个疑问：
以上的程序代码的编写本来就应该是程序开发者的事情，用户只要写 + - * / ...就行了。为什么开发者要把这些工作转嫁给用户？

VB6 这个平台不负责运算精度达到几百位、几万位，C 语言也是这样。如果不想自己编程解决精度问题，可使用美国专用计算软件 Mathematica。

天山草 · 发表于 2008-9-21 19:13

曹锐博士给出了一个大偶数 N = 200210×2^93184，这是一个 28057 位的数。博士断言这个大偶数不满足哥德巴赫猜想。本人认为博士说得不对。下面就是 N 这个大偶数的值。
请楼主算一算，N-3； N-5； N-7；……是不是素数？
302413878466431844272672388965845290283598726490064613915961632211974222306345\
273459686007970631125966000567682621774786819213455771559921361032873942175089\
648783250281907258730953738336877997944031804927880129862736525226697853640666\
322752157587515149043642226435145299539902155341229790191615558963663546640687\
433917958045297972622996371627547686292113388665333008839162646713070323979225\
230511745150894398898173937729043366547462231662455976777924935334439878236228\
721397175176613651664492723536541637590215577550416743269755372148377375460349\
971056713137062478733281497355508608533574408913175139130605624257122874721328\
913695781683834724294392637452862092182713751583181893647768978059510335170317\
156857400407920952443481637389824262044509970182265662419193100033816141588999\
582492017715178554411375123388202702922028020527877030389224960985478470193342\
330666463195748168214699318576948720386193476414913382310479036599044662285672\
794344396805123542371396312442292896077708322407912142882336830356170281471303\
498453122261840776234207261219521641490055872937018157637105095689642830251703\
235277615312874049295275580506659502244393287885780235417217106052307573590901\
025750022179291082921470132533714146980996080241754752365776066570082776003637\
215488914359681797387622060724356931068185549008930994887796343360032640742784\
090927998828839979841650305595575606156760077603264860079402126317164035917762\
013027465203696596866007375630356825664739639902556314691947722338833722183204\
038368413414522269905623283256852567410806226119345140131238665945645260377057\
298681424468217103333731817276289880346316046589480393241475405680767675863030\
797491300978126603798289766560457628115473555498902988949343356204292301777079\
821440343092060558549861562356292372492045364170396987087184835794247460003669\
044277321769136431785586130680864134589938681157649348292667499446920836037677\
831468353391175683845395472284564132932259914779020779958346046314299180823326\
119138579196684770582855941447962463691707115719774698773274897462079069384849\
040643637365384310544843600902842738467530952079159377636019007748943959557147\
882144975884384208963021733597828575392319431665510209266760969555818997306638\
486476334538944416395802610360672630343568556144101959668345217855379784888230\
105555719827894924465293794464506553344843335935617448617594370774180060222635\
715420585241304149250829457191769929623995659138540888311973005537055388924426\
470018216394597323732511945187461545300796976595899795891589911780950814569499\
114713743424546580269622415999485551279851464268138989218514313443610604792682\
777345020964409573966771129401929046057850665690392331973068114106182315983743\
284358221114440368803646067351004547213992588915480356848497221145257441739992\
700368118374283699982998548491598462435889786032923600460876777266141220821203\
466132237619408389999923672466357216482469883543849431003086969413370198398433\
473906960952280728341756815091455065812012058219182607000609424877268627389290\
770677982932058748125905299395903836896686416253704742195269602392220493142414\
241694186506104555888146572093187314246763872360854365299766105726178342524871\
359126773571906884314586583019817284442623676408067211212370267670443295024031\
915690759828685964725324434638251271791717534693189680140808250199857009032740\
300990837646874669314032198192614316821165365166372071368523964430095289045773\
816849759911562382829971872204936633932670901995585737592476225348732495732304\
305448963109380002595745479244771191525751851686409235001328657461120564771670\
124247119641762721771155040204782096168971854521143930818937223942304088610511\
487591115373930470736231243256146155413205870074266926930231434768994885762151\
664639262356064386970701424868401874229344994445216392804560346554872649951398\
967823959347695094895483754039622036398507036171770769698518200789466851826077\
140721810376959761689815162118681708383044078167555143472642139127326506677344\
080916922481367940687269982126804836450746281111765430452673923084052158716541\
103610064985410320131338008938318328303591687561635603822545621141560960150101\
884061634617076110971132740896222857241836201404131212300457789765947982723330\
934247813568840057564515291883454484148294156606248302838501905979608191432434\
742165884726021563399981717321852633328840147707401504506728056280674274621065\
399243993261859031366232983582117834047003668281184743403779295401530896715757\
828925405730940233114055560044276066295483110999030044902450505665084253429446\
699939353980326025914404249874926954128085460176388647997846550012028974862995\
663820904245937802718191966779762664465032242994809398754965547541787189163383\
123131553061357882063984127763806655844938655372070240102692306008652069193321\
442480843258594080750234326976262339548846934946154209267979957879561370783702\
026224547434220496443580111471354522783852780911251016523006039185764753140475\
599602374105016699681684749462831101044457219005079267632943602973230211389772\
572414371234746950641875045091483275084836510574358287829482198920290292215897\
927950967207696296561070373170529313487716158848449637498317858042700391921337\
752564752017798120520656848174638848008110759709189659289087543059606454767200\
057211270279600110341765819802266910043480220979980473896750653000717055130088\
175238242922130872679533050246843195460209910289889745792322882873632713073585\
143169501353707953820921779635318378329871237329616456387677161819047183383286\
800028844240527540350035493249356328764940923150842313469028611096109164540999\
007148917275029406090748993577399828220328360559843179237064009929225382506359\
096866034593661590586688737391214999596575733403139417305506634912509958725910\
051036788641323440715801119185312884742219670733358447676851693537040697373335\
956889525278071098410487109492110436193729719502635164288464611842491113784978\
616352520148517657493808392627513890103616306766239036896693740532604912107607\
354028595001191787944788627935529301319643373012885483508679735638217128228629\
693581934480375201440769488178536339323621361652688743891567016238550039636328\
738907916503552588423855394763837712874889636821937049314367945081605736607703\
632689686130701586746908777735052475340949745704793251919575323089254402564663\
171521661271516778911246639314382432103815232338561412831545569310507233798285\
174884363608088839465610892580603067626825657464946768604164202554506699655843\
867441281198509105609696911405013349875237576069170293088429760874052956818686\
227996436206447710227534779752851463575868261282042905187918200723327872514952\
888177249799241622257247834407240147677666781737821379859908390881574296099727\
168824429631310040243573171571907347509138865359359394085010126757075298607274\
378658858425793669825678885531720981351876077831763820557477042936939992385884\
783388445261422748126579181909156564162851647224251300872376554554186847254237\
835154102973210328674574574901689648988920524944540166374747771098639595625612\
105173712167673188352164473394611311056679888016629831470619034031294061225715\
239142935466291527620273838157955685269218907693212273260168771882516830471322\
870794922837415396355588253108250192118809485089084338892159920233373815783612\
707803538071772061342108683805583069679378205195270269368024165844865207003320\
909167682061918224806245759302239514259545520683457605771957189618118220509904\
733960211542742705411781046134260237266134463908914379845342093038533645361608\
171686750270261855209569769727608882977899866665033218621134689768175306926226\
940370358970853463974601083622468734620579956468263286273688947120361114878706\
126218130507427878563945483013396085737799956796587034493684069475708790671205\
515246220579661196704879342656133355075661068936311272660418647263341006904926\
679358343471961320768520054817094999025386631299030167364979105029525620055111\
610906422049816555456191320457134764219695262578523581748862475328048277202514\
292226589933995533610184245908555383425749346514909738912111308685723292030126\
567529112697642861570601585724782451097542735659538488857536808746883939621899\
012640826641085539573893351712644645013383280816873741285238947543110190173877\
555483022763546408360023570077765250263974393696331312070991693888584373647084\
890564468245035901377548913260769236053543473589545333724919090164000851517368\
883743283396577148604513656172295988405907017400782435461670341022441248649530\
234829769666805716337676891594791020334436947173047568017718928035444324169756\
341803748555664894078658854196390722010094860804363018147682568867418318144346\
588096392988556856268630177377672628367176615900027318563471385868986144431436\
700608798263571501872483570359385109826921516458489946873928253896341794099796\
686049274915858304722928327894454399905937243720119821682593198323961500841468\
375004142602178547375240576730478376100947209028018609813265229273665648967888\
582891189517165933436927815045971397972487890459840359401690879150418507057864\
331402631026307224165048261880868096931233202136824007111820679187108293153031\
689513791356967866143986271731997136937137822780467308262672660138252980963789\
862894031622097496191086203145305066971256735469338995815813218948671916554197\
914493581537964600204715975907110488565272092721213881064636210681445184833023\
643099357485016751211067411894064426942150379965775251182452090615881030843991\
825179364629158598937836625450736000232431215182121129348428841687923847913093\
444395364560881115333757671067661013787760515403438219183713805474381053044749\
368038589015831401948206746378644488859211732246373639243237015778336517282360\
783619100476008479625722495790389607758027962606340396112534797336147518755044\
748550203158935894422505167988080335839352686883110464833860253089853230799740\
345637174154156071882575204691008247831841821745760665880462200592420930108288\
146092698115744248206784962109181766364935951222549840055956132682449578297025\
440322799630069983820305671835885030134829138439354810939549882161113014468026\
030908586106363341117682778503710728022139989131130519099479192592532093727905\
312479869837889369155008299142050841397804095113465852832029379520909575996976\
065029358887571317491895704021616883656324820064263594755287423549117129499790\
372574313553814648497429112549493874599512540721948559824198805521560431261006\
686291025221383122491245086988888486021156907088426862128153202496715037473521\
758665004576972870452627228136020251770635391264342315501000000395893546694088\
409548767083104025945178107237643084591866099339934729067787736272414261973588\
827854255983172279425620338763773923109805783057785313029383326317130217068804\
499713589575316431525823504679042381887628314605675352728312083218564054746105\
203790848431213425343444230872971590902570554231923360191713292853208480566492\
519870926480622427440683136795744674138039285132051022397432996336986624884154\
515533226180958969754240566290486302407913857360397568721088470698256119338263\
999045213993830604609642165678800634873420168520341673279070788798573993494706\
398422577333272661973295392038705719805556680524258240328555499627834506701901\
136606776438120752032008999259340850779245420834466070715457989889704168714187\
476944125206123782722645028096651261151239209779294960653659156537536139188972\
201340283432336111340388993181896161373172604784044224120926830069530475748084\
555049896240395468963542920001172594317422493752238290913684141363485131934517\
435510774256878205967466276278775154354286987069224822829313985307720734912979\
173253802214318274622665533219834775405998296472480492666496612406881504530576\
151257306501149752646218871926077223511749208803439000767223868580767899492300\
596770965546275418263573745061022802048656667318396176305885909327813757122454\
353191616798581844350583822191709295058701572710676116729575228769296674736614\
593262912395152957964262998136256001702415435317916551847067798302028523674070\
944983281671579000266994060460227117489423192732347030513254124967675123149644\
110521011460011331276350304286602089180801994356279267208860893852956099863883\
697324986776830126057745997817676352741543235809111780113917387704499960180718\
670821644912928942495959398872135222686485781815518702095217200448851792169127\
323115347368371251708874297119793214926431905212985575024621640890049016991018\
225589310340014991713291423386777769658727152247770122446254232506463131261190\
025177076897139907238349707686086502039098763684929064540565987254071998645307\
514689819219661578699725991975664487753614398588576630802830424369120060032228\
772671661314400692637410553231029870490960740607385608928759036061135029265647\
219037773216325764758148914789572491430556960178495161675957595031889707910615\
265021157651631233685591854831795523069676689232074403149836200817348008674516\
208352429719187537253874874944961979849109205474782873433083293724705171569915\
402234027703619462878563152680483784361942235286626421190507531943254249833189\
422163334845263685769297799612702874989131054470091646743418613682041674105853\
843096062171313871615442986650286696765222928753673823689004863661792162965080\
495033615070748897166687941809726393333156532563362679413598873445626825358929\
061527513009099041940160337465195618208647496319455078217289555922506464186324\
477689286264269939266671127270139771014479964605166027561250976455915277335985\
439139071878285953767064552306684014691861603855680696733211413677595385161170\
954525161073934172855123075554282380194907961277126462337398326622364984631765\
098880858838554949610609037349245955259152501110949026452343555212206063382110\
378159495457269510052974778017577585366296611683355158992175104671189722146772\
247318911777528430290955495736051121598420694258210614894433824747133783725080\
067231157742198071524154855578971229162076411936728187543611532375164382227657\
494208387269169138611069964204403028659084862623250790058741960577081631965192\
626251354133533943712188164594473951155137337499086595909387397420201659595229\
987164759273762980102714320937774912859472810241293495048031353765826409755718\
085478512098419036945765388483334707232512328524269620875794999772553146699045\
998490646183528375546326862026981033763265350053434752106267391626949580946427\
756690242673092937230924907654639660809330564162849404520469334021506969137883\
102624201394632449161572076531608764041937551245109150571318518102327246676100\
282440279623713355495382405858159851024765020013144282197916403858568009253888\
909981667046201867311597696161056057463371390520798329796399905109198676830501\
786493600146746623969646882884874185859568576949905917958939967427225187490563\
259566587943884634544399900480288387995414143267481889442456784839197444721162\
686015846579546206169363746922328889445777617553967974762292387688770258691162\
474451415734166562316375974989360785896078887588410038483485557491974720970786\
211094197122665531750050615793908963451145009691815772383500006247747344097778\
990992871259579756480272152186629193989513063046400973702162893484046662371766\
166408145839211650488784912259839504118649374302745520615546256084714534044089\
093561567562778523591211542438376820076827743727934917354812431226942944842822\
370781711334076767678997028986707631598757422411317514883252093870369913660453\
741276505527512646424468585217121719746273362561365112685697604709305019648523\
965120583649136903297802252817077991541922059090320970829240306223397458429126\
426149702701442527457076625594065513488969806725260454378879098453865131738054\
327049609363157963956810585115785619903136629625933444754601710039344825901271\
432564409914959286571817795505762798873052177432216321908758798775428768939313\
046067628616865708793989062000350509236353939453163980712593031653075353757323\
640472788099000320506195373413627885204613725821738877625796856657022119133818\
753910716248082828381379576940386815265716635663040426153295430371671432027354\
004928509257998639478995097821074325224034209366381996704127469543307304038354\
239718290639421150941232627797118269964130242459323356796230095464056550720845\
381034801303160954005547864767918818776115279706044691183718676854707032482670\
612365110541350139297388453160225587244840089013309378760902512262269478361267\
918852666052701471199276166619288559259388450387884540036191605588925464452730\
563244379743013764334463938948083461703949379192402852239195773091556064347622\
903368997563797565415038122765876662287364643330923787782468687556560387531609\
072398969599466306228003791087135869921306825070266145781395502298284234262887\
087768968424201628884934780312782757179165158181191427127890063835847675835666\
490622247835833366753821390523031463526566933080833125946646252269987695316536\
259926213364756596532676263760752072387570029912973999427740478382107440176523\
567291869963848881739364883811568770725871997549404115317088517671306726358188\
143018253295246183897239666296000799283487288365316959464049619401022786518480\
319258393858668261423770841164602577798352747206571577243475909626886660274326\
874923605807479602220134679730571380409302048339701216518363658792005202441474\
809130481179618601860493402468922885036447391274627744008565075954306821744141\
717306059600343378663820180441895459732503783269742400855374981211861599689961\
851308314304503795703640798722700792660366295468470994850954044349701942769962\
534729813903313223474787713986309202091070773338624191241871659768473444613519\
902730996631780554952649012695957006488095090634435808782316033599976109420055\
261776315655078502227541153771604776231068479039056367400351395429636700455927\
781270575585468678743750002123784940812125662066246020100824875633992656152779\
958867319866910575534751959716881506459882921725071699525225880307610980167811\
695509848815301317684242158346212340503467429395340618454129726038847944319862\
362088923645808795430791528167961383443895714702083537405293355555405743370858\
691943631804428635861119832566807883875554646289132959822734300503412120471490\
706357906197062504828189154734835403983458147601646366031150829563226538106597\
407328599319151948342405476936872887014512418924863825570591800005408387403591\
484147730385424978442072178507176601350359319644952132250781142617634567421314\
708280180642603017827460432068744097932058942166463107908068330143566037345971\
040377662804730783695582655539770488908970502146917311636590289742020133875230\
742314447882974829887429845487350042763277650233589228920806868204973351676141\
818046289775688962516051361601971426523483949891408367981799815711287594903984\
149718426680497043144224288317195194868268663600660943349277366703681585137088\
118822361561174252989867491758440737802893737930675501190907977103326892446063\
984898005225287975763055456018215930068009171633215023532436044515814674574622\
889607151466988927911949284278830421971922885457803956138720474887827678282959\
333640530707877435470417730894195087203090950205847988249294170172040747525368\
059671881264632602288079827137142035292724891476132794926944341707960533028704\
740926101221142039503705909585525266087609296711640675914816743133814047155703\
618972802550605558820531717339752208053362675242671670201526508068609924787701\
288686866033508416252054360699859242484868437164371502743085858322793950726123\
470502819986394411576756605441545781473369104642176959016108037693784111859483\
540337637534227883223082954287199486021856888962777047635327689159729740630079\
732900666969404648346403594946000142069337265297596180869652858132365079388114\
338383982446261440922701463982535049609286885416229841207074660759075814456191\
433045100774520207183200906096081722611233763042641075381384578611967282788799\
391893776097114343333402664078318010011583504238235069952313626978222584006573\
816008136944433324238815025236881520680481755475338220186114411435563190152456\
480824959955919026831180743896141106175491150350450042981659874563193089919745\
326253373100035852407775843334698895351939647953230346005881114642234964543429\
639474337703438988739228446875380076732559941888723518015184431583671975420025\
667312607520745437780937798818313348083942405665811625753815371347842145117017\
356189764704852269192711483129921967815873060559483019255618040548043254651220\
175012057691882721105519272787788222707960433583435996232220924140195608495019\
011004129653834808615205844797235574300861833311272386792657609787780979037468\
924750343360878569200025345592764320053434861218745179381865075988036867394818\
431862444069992500782002287893281134078149023850597781210636637524004408845352\
968277682772802256435274873671505348486720137618955173919952650316582142622277\
081247829671544873871114728424001176925516648924134936621059151380032057326132\
109516364885829621113488443978217494225480364764589750562181882813323325698860\
269146463141485422628121493437184727460136986201371118291263975267011629270104\
411532710201761906368160342653181683535518596634154661568082593900748321054539\
653920401983041874359933741101892279478282947142717895226747133888099643940313\
544503517517772810658151736602104712532335200597910238994574917136979718132001\
248586793909871217979513260602512007949248794948190546800568745442997520824516\
650508779584681371180930437547219970306717253114484822133440595270605854283781\
677668673075029175724436961452179584503976992093258400854310151818289604463080\
104460842319616065020156132962979092968188085576808280990767619047197260379645\
332941112088515293114912151644276420988033535653804670915948186413458498949304\
701683514518508665842892269925002567071753535353381178360027627228717852278401\
929445615235011176401232753128083992679895417751829464974814765700267263483204\
398494220504178582309841539689514380853979263681255503433100150206015986996926\
962087680031790322528546346161650822128461827995030033529038573578331046042934\
652396845485183255021173103215893272752347365881072191279148601778954541743852\
069495723726392826257409023586280592778194190058384361486816348026105091673288\
931209919517714810091006065690704838379735532696211892670016492545037836765497\
126640807285754848061926511373822828081111184630610839699006503256200852078640\
083663755320799795624307870286317313288485050056717951432523569540679801841597\
396548173743948037204464981829142118329948297034183616984143670489083214236362\
727214630549529575443779823931766731900731078319087648862662872489900865988506\
598274253915029429919454185893753851503253951515447050193476605267781419415129\
917959543852503206434041620286245936757392823612006798705303949687651717957232\
402115236950025869186651723088983247976481771608051953844981343007999642182611\
588507475886733974727880501397432153208660972731121743241196781837040202159502\
291903226644727258277252613397894302096985771275714261232262794141822341210521\
353932494397306503929982710183795344980856844725002384960842484279735285601544\
135516319173528588573919174266833593260305688455833788361783159726969143759068\
218746631437507148294115867448354429561474640472627994820757876064682266411592\
916454660463094475172879524189746800364245676172007925668204101685118123793656\
703307896891254957711483141428363929669955744197948077455987517356156870598812\
883614725323225956197280497205867216592905062451552728747308623813098024329664\
061753990628342711350953086133796681982430151622038493977190712992181202211564\
208922903977733410501947863010346159814494019695137941811427769182875758217800\
323302968027432777148129782858141513512749158678033928012198387223258982441239\
289496471058789786843403944308600790957300495730495462272609998406698157548219\
323004643150524371707031117100447581825204951570475509347646988786529389010182\
585092381003143214048906865303057671982055133317593536025423182365179954381793\
163970011798159291895154317525839514765407814200537188974348138731893565871034\
092223082781522983982714783530524005216470483283105488594048972273852642711602\
092770506473396269666517142561890962532166824634491802166197289464475957078717\
274511780440347242340145465272406610395207805994073245162705379101559837971680\
176071195951781361659348467640930383331859963205443563361408925217557672862756\
574351912753934026159065600021465748945948461000591463441969466743417512089397\
745622627002685040142196879143615484967342523405750527677358828926614765696338\
592790361755200419795919192223134459572435453271655095135326572613194648222619\
900952153833997219133566429255436772768954556033800014572064584419147996564173\
057986174163399075062454904577520101364611510770862716919140188999649276688975\
896550868735549492724606551001523989104346750071892833900048773473372954910527\
557565605563493976621882097274913046164389923095541064003483648343349551781708\
878542617469615872703928067928222500635359670910126618179670235733936389354036\
506745152310276761426971568794475627541939037108383755922015476983725891910420\
186252991908482054016401663518120988259413722122948275377454116177643640019628\
686713185184474907948151588301229529678045949467221143746099386412181711165099\
247950510803502554031751483004791217487723779681244111642609378732370404655326\
860105078692513571968729715219813163286586142422430603429475197898049783391380\
168024987763241505203016589687832937124136244516028875654144149743367707956301\
748833259317467574808331101304156301338114199523559569009752612949733031244135\
963656092761448839566723340289862130484765919547780517086545142689666081003331\
981085231322815848449359501097253201602251646421416863670204640213940678476506\
249380001696200846698492119324435812858012830367739159745321577956439672044579\
669173320978016656032405506874618081570275885107934290910968411905954181181484\
896197413130653654225374939296833096624766258923849025809874894567998691440797\
210240743550455525138333123246839220686601092836623191128216680097573556014924\
023571783520155661152631763646157332820689842504678825132201636351219905290507\
422208267450318216972437985769488525702078431612477247912863099104012140010596\
832550804182903928425985413074886669937509417081293386543909999770253478313314\
040398470466399739663004321287070279141980151266919350869306279112106794948254\
855917597129699332786808076348088295860178625861356618729327135382086885156714\
941841517658032928424984724784008851164491994457330708935728101992276381078187\
360987626631968350215380085319759035639679944023605565454364408104959301746986\
381088638440599267870819002908096260642367689466304923934128087547297666941420\
579509284918791312709121970910304511594809762490571333673476301886902048714568\
636429592223384113057552563851964441587753220431813041177351420827506853086576\
724603713992109870376203229725579517600939734787667708552380649139369829692775\
191856642786373636791660189136425327535855945029954673327125528589210609237305\
308692470344932805002111092358260228459440219288323237790546852695633271173518\
426985978182850959604460513182485355813697370363321403424627583811880722796025\
579284573185290919831666490208896646708965308500676136334467790798006909200311\
912774559754556584398959640111126987782205568556813291180987260136493115381420\
743361899609918710835832968637936906343344939111202006884403489526693248436872\
233695622415679354267246904553100338210138785611621169390248966910447497569878\
704384347178391953059790718178712340511756152501878362857240376811662263998358\
111041487795155324257097780883282870763871898037426545342912776591976507993844\
804351182243964066088250499432787441805910796796431018758289926776815711282768\
442693382381024602537544038810314489663871936302230907751626959714959158782787\
314917134887091840601224158839037986794379843794054658136697834838351076717725\
744273942761000317554158277234706815677937757821108179396644336723383257657199\
412487862727550406138155339087457618543031289057477833847669607703839913472880\
755867689906769146427000071985012568254865053933887748148181653486819993938658\
096455493738391069859038052072772987061145086006727715533925633638714544307138\
228386797904738463783687303705130326626669574812653189687267616268913931243592\
939286906810375719253685333254981123571550879934056110853581254228302138016326\
297749119602904588860276419683970932743416507588129772615417782954390385905937\
671058055304068338308480360172493618829590541468292460725593219033666994137966\
272177063836802097638804747717577118659178542292951147486693132100721050164163\
558682338606337174875834542584902565929559048475347084605600173871481262926332\
225727638889962669841624712759564657409284468708771390609755013895018937933366\
655921949328210485237369977810140153995635598709775306226354107360971025258487\
9755847336187657323846836207213254330477055468487311360。

moranhuishou · 发表于 2008-9-21 20:08

下面引用由天山草在 2008/09/21 07:13pm 发表的内容：
曹锐博士给出了一个大偶数 N = 200210×2^93184，这是一个 28057 位的数。博士断言这个大偶数不满足哥德巴赫猜想。本人认为博士说得不对。下面就是 N 这个大偶数的值。
请楼主算一算，N-3； N-5； N-7；…… ...

暂时没弄好，所以还不能计算。
这么大的数字是您的程序给出来的吗？我试了一下，好像很难。

		自动登录	找回密码
密码			注册