OFFSET
1,1
COMMENTS
All terms are primes.
a(6) > 10^5.
MATHEMATICA
k=17; Do[ p=Prime[n]; f=(3^p+k^p)/(k+3); If[ PrimeQ[f], Print[p]], {n, 1, 9592} ]
PROG
(PARI) is(n)=ispseudoprime((17^n+3^n)/20) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
KEYWORD
hard,more,nonn
AUTHOR
Robert Price, Aug 16 2013
STATUS
approved