Самое большое из найденных простых чисел с помощью фрагмента последовательности десятичных цифр трансцендентного число равно
m=999999837297
проверка на персональном компьютере программой на фортране-77 вычислениями с удвоенной точностью
9.99999837297000000E+11
9.99999837297000000E+11
Execution suspended : 999
Что превышает известное число Кортиса Купера 57885161 на пять порядков десятичного числа. Это примерно триллион, число с по порядку точности меньше, чем использованное трансцендентное число.
Программа приведена ниже
double precision n,num,m,ntot,jj,ii,nlast,j,i
double precision an,b,a,c,aa
write(*,*)' m='
read(*,*)m
n=1
num=1
c do 1 i=1,m
c n=1+4*n
c1 continue
n=m
i=1
ntot=n
2 continue
c if(ntot.eq.n)write(*,*)' j= ',j,' n= ',n,' j*j= ',jj
an=n
b=dsqrt(an)
j=b
jj=(j+1)*(j+1)
i=i+1
a=n
b=i
c=a/b
k=c
ii=i*k
b=ii
aa=a-b
if(aa.eq.0.)write(*,*)i
if(aa.eq.0.)num=num*i
if(aa.eq.0.)n=n/i
if(aa.eq.0.)i=1
if(i.lt.j)go to 2
write(*,*)n
nlast=ntot/num
write(*,*)nlast
pause 999
end
ниже приводится тест на большем на порядок числе
m=9999998372978
5426.00000000000000000
1.84297795300000000E+09
1.84297795300000000E+09
Execution suspended : 999
m=1842977953
1.84297795300000000E+09
1.84297795300000000E+09
Execution suspended : 999