Найти все простые

[rightways]

Найдите все простые числа $p$ для которых число $\frac{p^p-1}{p-1}$ - простое.

[Dmitriy40]

(Ответ?)

$p=(2,3,19,31)$ - найдены тупым перебором, до $p=3000$ других нет.

[worm2]

A088790

[sa233091]

Компьютерным перебором до 10000 получились только 2 и 3.

-- 23.08.2016, 16:13 --

Dmitriy40 в сообщении #1146164 писал(а):

(Ответ?)

$p=(2,3,19,31)$ - найдены тупым перебором, до $p=3000$ других нет.

19 и 31 не подходит лично проверял

[whitefox]

sa233091 в сообщении #1146168 писал(а):

19 и 31 не подходит лично проверял

Альфа с вами не согласна здесь и тут.

[sa233091]

whitefox в сообщении #1146171 писал(а):

sa233091 в сообщении #1146168 писал(а):

19 и 31 не подходит лично проверял

Альфа с вами не согласна здесь и тут.

Ой прошу прощения, я ошибся. Неправильно посчитал.

[Aritaborian]

sa233091 в сообщении #1146168 писал(а):

Компьютерным перебором до 10000 получились только 2 и 3.

sa233091 в сообщении #1146168 писал(а):

19 и 31 не подходит лично проверял

sa233091 в сообщении #1146390 писал(а):

Ой прошу прощения, я ошибся. Неправильно посчитал.

Выходит, сначала вы построили неправильную программу (а не приведёте ли её?), а потом ещё попытались защитить полученные ею неверные результаты, неверно посчитав сами. Как-то это несерьёзно, согласитесь.

[Dmitriy40]

Да что сложного в той программе-то? Три оператора и всё (PARI/GP):

forprime(p=2,10000, if(isprime((p^p-1)/(p-1)), print("p=",p)))

[Aritaborian]

В программе ничего сложного, с вами спорить не стану. Одна строчка в Wolfram Language:

Select[Prime /@ Range[1000], PrimeQ[(#^# - 1)/(# - 1)] &]

Хотелось бы знать, какие сложности испытывал предыдущий упомянутый мною участник.