Нет, это просто чёрт знает что такое, поистине дьявольские квадраты
Выполнила вручную (ну, конечно, квадраты Стенли 5-го порядка программка строила) десятки экспериментов. Ничего не могу понять: настолько всё непредсказуемо и необъяснимо! Никакой логики, никаких закономерностей!
Вот, например:
формирую нормализованный массив из 25 последовательных простых чисел:
Код:
Select[Range[0,438],PrimeQ[170693941183543+#]&]
{0, 4, 24, 30, 40, 88, 126, 144, 148, 214, 270, 274, 304, 316, 318, 346, 348, 360, 364, 390, 394, 406, 408, 436, 438}
Замечательный массив, сумма его чисел равна 6190, что кратно 5.
Ввожу массив в программу построения квадрата Стенли 5-го порядка, квадрат не составляется!
Это максимум, что удаётся составить:
Код:
170693941183543:
0 30 x x x
4 x x x x
274 304 318 348 406
316 346 360 390 x
364 394 408 438 x
S=1238
И так в каждом эксперименте.
Невозможно поверить, что из миллиардов наборов, проверенных
maxal, не нашлось ни одного, который сложился бы в квадрат Стенли
-- Вт авг 26, 2014 14:21:16 --А вот здесь лучше сложилось!
Массив:
Код:
170693941183543+
126, 144, 148, 214, 270, 274, 304, 316, 318, 346, 348, 360, 364, 390, 394, 406, 408, 436, 438, 450, 480, 514, 528, 534, 540
Квадрат Стенли:
Код:
360 390 450 480 514
274 304 364 394 x
316 346 406 436 x
318 348 408 438 x
148 x x x x
S=1810
Всего только 7 дырок. При этом ни один "плохой" элемент не вылез за пределы массива:
Код:
360 390 450 480 514
274 304 364 394 428*
316 346 406 436 470*
318 348 408 438 472*
148 178* 238* 268* 302*
S= 1810