|
|

楼主 |
发表于 2026-4-9 09:59
|
显示全部楼层
小结。——也就是两串数——数字串A, 数字串B。
数字串A——Select[Prime[Range[120]], MemberQ[{1, 7}, Mod[#, 8]] &]
{7, 17, 23, 31, 41, 47, 71, 73, 79, 89, 97, 103, 113, 127, 137, 151, 167, 191, 193, 199, 223, 233, 239, 241, 257, 263, 271, 281, 311, 313, 337, 353, 359, 367, 383, 401, 409, 431, 433, 439, 449, 457, 463, 479, 487, 503, 521, 569, 577, 593, 599}
代码A——p = 599; b = 9; R = Select[Range[p - 1], JacobiSymbol[#, p] == 1 &]; T = Complement[Range[p - 1], R]; U = # + p Boole[EvenQ[#]] & /@ R; V = # + p Boole[EvenQ[#]] & /@ T;
N[Sum[Total[1/(2 p n - U)^b] - Total[1/(2 p n - V)^b], {n, 10^2}]/Sum[Total[1/(p n - R)^b] - Total[1/(p n - T)^b], {n, 10^2}], 20] —— p = 599; b = 9; ——可以改。
答案A——0.998046875000000000。
答案A——Table[N[(2^b - 1)/2^b, 20], {b, 9}]
{0.500000000000000000, 0.750000000000000000, 0.875000000000000000, 0.937500000000000000, 0.968750000000000000, 0.984375000000000000, 0.992187500000000000, 0.996093750000000000, 0.998046875000000000}
数字串B——Select[Prime[Range[50]], MemberQ[{3, 5}, Mod[#, 8]] &]
{3, 5, 11, 13, 19, 29, 37, 43, 53, 59, 61, 67, 83, 101, 107, 109, 131, 139, 149, 157, 163, 173, 179, 181, 197, 211, 227, 229, 251, 269, 277, 283, 293, 307, 317, 331, 347, 349, 373, 379, 389, 397, 419, 421, 443, 461, 467, 491, 499, 509, 523, 541}
代码B——p = 499; b = 9; R = Select[Range[p - 1], JacobiSymbol[#, p] == 1 &]; T = Complement[Range[p - 1], R]; U = # + p Boole[EvenQ[#]] & /@ R; V = # + p Boole[EvenQ[#]] & /@ T;
N[Sum[Total[1/(2 p n - U)^b] - Total[1/(2 p n - V)^b], {n, 10^2}]/Sum[Total[1/(p n - R)^b] - Total[1/(p n - T)^b], {n, 10^2}], 20] —— p = 499; b = 9; ——可以改。
答案B——1.001953125000000000。
答案B——Table[N[(2^b + 1)/2^b, 20], {b, 9}]
{1.500000000000000000, 1.250000000000000000, 1.125000000000000000, 1.062500000000000000, 1.031250000000000000, 1.015625000000000000, 1.007812500000000000, 1.003906250000000000, 1.001953125000000000}
答案A + 答案B = 0.99804687500000000000 + 1.0019531250000000000 = 2。——对同一个 b 来说。 |
|