A273599 Numbers k such that (11^k - 7^k)/4 is prime.
5, 19, 67, 107, 593, 757, 1801, 2243, 2383, 6043, 10181, 11383, 15629
Offset: 1
Programs
-
Mathematica
Select[Range[1, 10000], PrimeQ[(11^# - 7^#)/4] &]
-
PARI
for(n=1, 10000, if(isprime((11^n - 7^n)/4), print1(n, ", ")))
Comments