A273601 Numbers k such that (11^k - 9^k)/2 is prime.
5, 31, 271, 929, 2789, 4153
Offset: 1
Programs
-
Mathematica
Select[Range[1, 10000], PrimeQ[(11^# - 9^#)/2] &]
-
PARI
for(n=1, 10000, if(isprime((11^n - 9^n)/2), print1(n, ", ")))
Comments