A338525 Numbers k such that (11^k + 6^k)/17 is prime.
5, 7, 107, 383, 17359, 21929, 26393
Offset: 1
Links
- Wikipedia, Mersenne prime
Programs
-
Magma
[n: n in [1..10000] |IsPrime((11^n + 6^n)/17)]
-
Mathematica
Select[Range[1, 10000], PrimeQ[(11^# + 6^#)/17] &]
-
PARI
for(n=1, 10000, if(isprime((11^n + 6^n)/17), print1(n, ", ")))
Comments