Вот и хорошо, что на форум написали. Говорю же, собственные ошибки можно долго не замечать, а чужие порой хорошо видны. Просто люди нередко на разные вещи обращают внимание.
Да, конечно, в данном случае согласен с Дмитрием по всем пунктам. Теперь ловить минималки для 12 делителей о-о-очень сложно.
А я тем временем, протестировав нововведения, перешёл уже к счёту. Сделал болванку:
bolv = [2,3971,12,49,50,3,104,1,18,5,28,3,242,1,480,289,2,63,4,845,114];Паттерн пока ещё обозначаю M, хотя v мне больше нравится. И дальше, формирую уже готовый паттерн с расстановкой квадратов 123456789:
Код:
M = bolv;
mdkv = [1,6,7,8,10,12,14,17,21];
r=primes([23,59]);
rass = [1,2,3,4,5,6,7,8,9];
for(i=1,#mdkv, M[mdkv[i]]*=r[rass[i]]^2);
Вроде ошибок пока не замечаю. И уже пара приближений с valids 9 и 10 нашлась. И это весь улов до 1e53.
Код:
M = [1058, 3971, 12, 49, 50, 2523, 99944, 1369, 18, 8405, 28, 5547, 242,
2209, 480, 289, 5618, 63, 4, 845, 396834]
m = 447180315895329581126910934492379272800 a = 396834
d = 0: [5, 1, 1, 1, 1, 5, 5, 5, 5, 5, 5, 1, 5, 5, 5, 1, 1, 5, 1, 1, 5]
p1 = 44247351766878945595325330060830383299
d = 1: [5, 1, 1, 1, 1, 5, 5, 5, 3, 5, 5, 1, 5, 5, 2, 1, 1, 1, 1, 1, 5]
d = 2: [5, 1, 1, 1, 1, 5, 5, 5, 1, 5, 5, 1, 5, 5, 5, 1, 1, 3, 1, 1, 5]
d = 3: [5, 1, 1, 1, 1, 5, 5, 5, 5, 5, 5, 1, 5, 5, 2, 1, 1, 5, 1, 1, 5]
d = 4: [5, 1, 1, 1, 1, 5, 5, 5, 3, 5, 5, 1, 5, 5, 5, 1, 1, 1, 1, 1, 5]
d = 5: [5, 1, 1, 1, 1, 5, 5, 5, 1, 5, 5, 1, 5, 5, 2, 1, 1, 3, 1, 1, 5]
bad = [2, 5, 3, 4, 1, 18, 6, 27, 25, 9, 20, 9, 34, 37, 29]
499 1 1 1 1 11 1 11 9
379 1 1 11 1 1111 1 10