A228225 Numbers n such that (17^n + 3^n)/20 is prime.
37, 641, 2521, 7993, 41213
Offset: 1
Programs
-
Mathematica
k=17; Do[ p=Prime[n]; f=(3^p+k^p)/(k+3); If[ PrimeQ[f], Print[p]], {n, 1, 9592} ]
-
PARI
is(n)=ispseudoprime((17^n+3^n)/20) \\ Charles R Greathouse IV, Jun 13 2017
Comments