k=8; Do[p=Prime[n]; f=(k^p-5^p)/(k-5); If[ PrimeQ[f], Print[p] ], {n, 1, 200}]

Select[Range[5000], PrimeQ[(8^#-5^#)/3]&] (* Harvey P. Dale, Mar 23 2011 *)