Написал программку для поиска пятерки чисел по 318 делителей. Запустил пару раз. Она даже нашла несколько четверок.
А потом перестала работать. Запускается, ошибок не выдает. Но и процессор не загружает. Во всей программе по сравнению с работавшим вариантом поменялось только начальное значение i1.
Код:
\l e:\VAL\math\projects\equidivisible_numbers\PARI\res\res318_f1111
allocatemem(2^30)
default(primelimit,10^9)
m = 630266481983513326167952803643926488382956585353551289080576143144125328112992871361410383956269163653574414141348407879986944661689918234515062067657709121704101562500
p1 = 507449500772530247505755235571480581412049546710978235010322746671516250141967991692578888135924984174001639880733326902851040904031303919567787821454275201666793707327
a = 16830007736694495236979393359010362990943602897597298176162
P = [23, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 157, 163, 167, 173, 179, 181, 191, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269, 271, 277, 281, 283, 293]
T = {[
Set([0, 17, 20]), Set([18, 20, 24, 28, 30]), Set([2, 16, 25]), Set([6, 12, 21, 23, 25, 34, 40]), Set([4, 5, 6]), Set([16, 36, 43]), Set([10, 18, 27, 35, 49]), Set([30, 32, 40, 48, 50]), Set([2, 10, 55]), Set([18, 19, 20]), Set([6, 23, 50]), Set([6, 11, 16, 24, 32, 37, 42, 49, 72]), Set([2, 14, 28, 42, 54]), Set([8, 43, 48, 51, 56]), Set([13, 24, 54, 59, 63, 67, 72]), Set([0, 1, 22, 23, 27, 42, 60, 78, 93]), Set([5, 30, 51, 76, 91]), Set([0, 37, 42, 61, 66]), Set([34, 37, 59, 81, 84]), Set([7, 8, 62]), Set([16, 18, 20, 48, 70, 79, 101]), Set([4, 7, 39, 71, 74]), Set([14, 40, 66, 100, 111]), Set([0, 20, 55, 61, 76, 82, 117]), Set([44, 108, 119]), Set([16, 53, 90, 125, 130]), Set([23, 59, 95, 134, 135]), Set([57, 74, 144]), Set([54, 114, 157]), Set([60, 97, 162]), Set([44, 55, 129, 136, 143]), Set([2, 13, 24, 43, 162]), Set([68, 75, 82]), Set([52, 133, 188]), Set([5, 42, 54, 69, 117, 120, 123, 171, 186]), Set([79, 90, 135, 180, 191]), Set([35, 38, 96, 154, 157]), Set([23, 56, 201]), Set([2, 7, 30, 35, 130]), Set([79, 146, 152, 158, 225]), Set([1, 24, 47]), Set([28, 79, 130, 171, 191, 200, 220]), Set([87, 199, 214]), Set([6, 53, 59, 60, 165, 166, 172, 219, 233]), Set([64, 97, 132, 165, 240]), Set([16, 20, 29, 38, 42, 78, 237]), Set([44, 131, 219]), Set([46, 146, 148, 150, 250]), Set([161, 182, 205, 228, 249]), Set([104, 148, 192]), Set([39, 74, 135, 141, 197, 253, 259]), Set([108, 124, 140]), Set([1, 44, 157, 169, 181])
]}
i1 = 10000000000
i2 = i1+ 5000000000
{for(i=i1,i2,if(i%3!=1 && i%5!=0 && i%7!=0 && i%11!=10 && i%13!=4 && i%17!=11 && i%19!=13 && i%29!=18, p=p1+i*m;
tf=1;for(j=1,53, if(setsearch(T[j],i%P[j]),tf=0;break));if(tf,
if(ispseudoprime(p),n=a*p*p-1;if(ispseudoprime(n/25468063468930003408289789902806804434746937089)
&& ispseudoprime((n+2)/2332450562010829060914539001) &&
ispseudoprime((n+3)/8881784197001252323389053344726562500), print(i);
if(ispseudoprime((n+4)/1194581057989067510303488929847485299531076144547951304761), print(n," Yess!!!);break))))))};"318_f1111"