Апис писал(а):
Я вас с самого начала купил как котят, посмотрите в начало, решето Эрастофена
![\[m_p \] \[m_p \]](https://dxdy-01.korotkov.co.uk/f/0/e/5/0e5e7dd3cf1c9d9f436237234f16595f82.png)
вычисляется по всем натуральным числам, а не по простым. Математики прах вас побери.
Апис.
То есть, Вы хотите сказать, что

Это противоречит
тому, что Вы писали, и Вашим примерам:
Апис писал(а):
Кроме того, результаты в этом случае получаются ещё веселее (для расчётов используется Mathematica 4.1):
Код:
NN=10000;p=Prime[NN];p1=Prime[NN+1];mp=1/p;n=p1^2-1;Pn=n*mp - 1;Qn=PrimePi[n]-PrimePi[p];Print["NN = ",NN,", p = ",p,", n = ",n,", Pn = ",N[Pn],", Qn = ",Qn,", погрешность = ",N[100(Pn - Qn)/Pn],"%, p1*mp = ",N[p1*mp],", Pn-Qn = ",N[Pn-Qn]]
Результаты:
Код:
NN = 10000, p = 104729, n = 10971096048, Pn = 104756.00186194846, Qn = 497128058, погрешность = -474458.0674748686%, p1*mp = 1.000133678350791, Pn-Qn = -497023301.99813807
Теперь Ваша формула обещает 104756 простых чисел между 104729 и 10971096048, в то время как на самом деле их 497128058. Ей Богу, старый вариант был лучше. Там Ваша формула обещала 532745136 простых чисел, что больше правильного на 6.68558% (как Вам писали, для очень больших p и n ожидается погрешность примерно в 12%; посмотрев на мои
расчёты, можно сделать вывод, что это правдоподобно).