Заблокирован |
|
22/03/08 ∞ 7154 Саратов
|
Последний раз редактировалось Nataly-Mak 11.10.2015, 13:39, всего редактировалось 2 раз(а).
Маленький эксперимент с программкойввожу в программу набор из 16 первых чисел в парах близнецов, до которого я раньше проверила: Код: checktuple(v) = { my(S = v[1]+v[2]+v[3]+v[4]+v[5]+v[6]+v[7]+v[8]+v[9]+v[10]+v[11]+v[12]+v[13]+v[14]+v[15]+v[16]); if(truncate(S/8) == S/8, print(S/4); return(1), return(0)) } changetuple(v,p) = vector(16, i, if(i<16, v[i+1], p)); tuple = [18405899, 18406181, 18406319, 18406667, 18406769, 18406781, 18406979, 18407687, 18407771, 18408107, 18408287, 18408371, 18408419, 18408581, 18408749, 18408989]; forprime(p = nextprime(tuple[16]+1), 18430000, if(ispseudoprime(p+2), tuple = changetuple(tuple,p); if(checktuple(tuple), print(tuple);))) Программка должна найти подходящие наборы дальше до 18430000. Выполняю, программа выдаёт все подходящие наборы, их не очень много: (Потенциальные наборы)
Код: 73630964 [18406181, 18406319, 18406667, 18406769, 18406781, 18406979, 18407687, 18407771, 18408107, 18408287, 18408371, 18408419, 18408581, 18408749, 18408989, 18409199] 73631804 [18406319, 18406667, 18406769, 18406781, 18406979, 18407687, 18407771, 18408107, 18408287, 18408371, 18408419, 18408581, 18408749, 18408989, 18409199, 18409541] 73632674 [18406667, 18406769, 18406781, 18406979, 18407687, 18407771, 18408107, 18408287, 18408371, 18408419, 18408581, 18408749, 18408989, 18409199, 18409541, 18409799] 73640528 [18408419, 18408581, 18408749, 18408989, 18409199, 18409541, 18409799, 18409871, 18409967, 18410669, 18411047, 18411077, 18411269, 18411329, 18411749, 18411857] 73647416 [18409871, 18409967, 18410669, 18411047, 18411077, 18411269, 18411329, 18411749, 18411857, 18412151, 18412517, 18412631, 18413027, 18413111, 18413651, 18413741] 73648400 [18409967, 18410669, 18411047, 18411077, 18411269, 18411329, 18411749, 18411857, 18412151, 18412517, 18412631, 18413027, 18413111, 18413651, 18413741, 18413807] 73650158 [18411047, 18411077, 18411269, 18411329, 18411749, 18411857, 18412151, 18412517, 18412631, 18413027, 18413111, 18413651, 18413741, 18413807, 18413819, 18413849] 73652624 [18411329, 18411749, 18411857, 18412151, 18412517, 18412631, 18413027, 18413111, 18413651, 18413741, 18413807, 18413819, 18413849, 18414089, 18414509, 18414659] 73655816 [18412517, 18412631, 18413027, 18413111, 18413651, 18413741, 18413807, 18413819, 18413849, 18414089, 18414509, 18414659, 18414677, 18414827, 18415169, 18415181] 73663736 [18414509, 18414659, 18414677, 18414827, 18415169, 18415181, 18415511, 18415931, 18416159, 18416471, 18416579, 18416687, 18416969, 18417011, 18417167, 18417437] 73664534 [18414659, 18414677, 18414827, 18415169, 18415181, 18415511, 18415931, 18416159, 18416471, 18416579, 18416687, 18416969, 18417011, 18417167, 18417437, 18417701] 73666370 [18414827, 18415169, 18415181, 18415511, 18415931, 18416159, 18416471, 18416579, 18416687, 18416969, 18417011, 18417167, 18417437, 18417701, 18418109, 18418571] 73674674 [18416687, 18416969, 18417011, 18417167, 18417437, 18417701, 18418109, 18418571, 18418721, 18419117, 18419309, 18419369, 18419411, 18420749, 18420761, 18421607] 73675910 [18416969, 18417011, 18417167, 18417437, 18417701, 18418109, 18418571, 18418721, 18419117, 18419309, 18419369, 18419411, 18420749, 18420761, 18421607, 18421631] 73677098 [18417011, 18417167, 18417437, 18417701, 18418109, 18418571, 18418721, 18419117, 18419309, 18419369, 18419411, 18420749, 18420761, 18421607, 18421631, 18421721] 73682312 [18418109, 18418571, 18418721, 18419117, 18419309, 18419369, 18419411, 18420749, 18420761, 18421607, 18421631, 18421721, 18421889, 18422291, 18422861, 18423131] 73694192 [18421631, 18421721, 18421889, 18422291, 18422861, 18423131, 18423311, 18423551, 18423929, 18424067, 18424487, 18424559, 18424709, 18424739, 18424871, 18425021] 73696166 [18421889, 18422291, 18422861, 18423131, 18423311, 18423551, 18423929, 18424067, 18424487, 18424559, 18424709, 18424739, 18424871, 18425021, 18425387, 18425861] 73697198 [18422291, 18422861, 18423131, 18423311, 18423551, 18423929, 18424067, 18424487, 18424559, 18424709, 18424739, 18424871, 18425021, 18425387, 18425861, 18426017] 73698188 [18422861, 18423131, 18423311, 18423551, 18423929, 18424067, 18424487, 18424559, 18424709, 18424739, 18424871, 18425021, 18425387, 18425861, 18426017, 18426251] 73699958 [18423311, 18423551, 18423929, 18424067, 18424487, 18424559, 18424709, 18424739, 18424871, 18425021, 18425387, 18425861, 18426017, 18426251, 18426311, 18426761] 73701710 [18423929, 18424067, 18424487, 18424559, 18424709, 18424739, 18424871, 18425021, 18425387, 18425861, 18426017, 18426251, 18426311, 18426761, 18426899, 18426971] 73706618 [18424739, 18424871, 18425021, 18425387, 18425861, 18426017, 18426251, 18426311, 18426761, 18426899, 18426971, 18427679, 18427931, 18428141, 18428621, 18429011] 73707746 [18424871, 18425021, 18425387, 18425861, 18426017, 18426251, 18426311, 18426761, 18426899, 18426971, 18427679, 18427931, 18428141, 18428621, 18429011, 18429251] С каждым набором выведена магическая константа. Теперь можно брать эти наборы и проверять их на предмет построения магического квадрата 4-го порядка в Бейсике Правда, Бейсик у меня с очень большими числами не работает. Но пока ещё числа не очень большие, с такими работает.
|
|