A128349 Numbers k such that (13^k - 5^k)/8 is prime.
5, 19, 71, 197, 659, 22079, 61949
Offset: 1
Crossrefs
Programs
-
Mathematica
k=13; Do[p=Prime[n]; f=(k^p-5^p)/(k-5); If[ PrimeQ[f], Print[p] ], {n,1,100}]
-
PARI
is(n)=isprime((13^n-5^n)/8) \\ Charles R Greathouse IV, Feb 17 2017
Extensions
a(6)-a(7) from Robert Price, Mar 05 2013
Comments