A273600 Numbers k such that (11^k - 8^k)/3 is prime.
2, 7, 11, 17, 37, 521, 877, 2423
Offset: 1
Programs
-
Mathematica
Select[Range[1, 10000], PrimeQ[(11^# - 8^#)/3] &]
-
PARI
for(n=1, 10000, if(isprime((11^n - 8^n)/3), print1(n, ", ")))
Comments