|
%I #18 Sep 08 2022 08:46:25
%S 5,7,107,383,17359,21929,26393
%N Numbers k such that (11^k + 6^k)/17 is prime.
%C All terms are prime.
%C The corresponding primes are 9931, 1162771, ...
%H Wikipedia, <a href="https://en.wikipedia.org/wiki/Mersenne_prime">Mersenne prime</a>
%t Select[Range[1, 10000], PrimeQ[(11^# + 6^#)/17] &]
%o (PARI) for(n=1, 10000, if(isprime((11^n + 6^n)/17), print1(n, ", ")))
%o (Magma) [n: n in [1..10000] |IsPrime((11^n + 6^n)/17)]
%Y Cf. A057177, A125957, A128070, A224501, A128340.
%K nonn,more,hard
%O 1,1
%A _Tim Johannes Ohrtmann_, Nov 01 2020
|
