A128338 Numbers k such that (8^k + 5^k)/13 is prime.
7, 19, 167, 173, 223, 281, 21647
Offset: 1
Crossrefs
Programs
-
Mathematica
k=8; Do[p=Prime[n]; f=(k^p+5^p)/(k+5); If[ PrimeQ[f], Print[p] ], {n,1,100}]
-
PARI
is(n)=isprime((8^n+5^n)/13) \\ Charles R Greathouse IV, Feb 17 2017
Extensions
a(7) from Robert Price, Jan 21 2013
Comments