A224507 Numbers n such that (17^n + 2^n)/19 is prime.
5, 7, 113, 193, 211, 701, 797, 907, 4153
Offset: 1
Programs
-
Mathematica
Select[Prime[Range[1, 100000]], PrimeQ[(17^# + 2^#)/19]&]
-
PARI
is(n)=ispseudoprime((17^n+2^n)/19) \\ Charles R Greathouse IV, Jun 06 2017
Comments