A222265 Numbers n such that (13^n + 2^n)/15 is prime.
7, 31, 103, 223, 503, 1171, 1973, 4111, 4729
Offset: 1
Programs
-
Mathematica
Select[Prime[Range[1, 100000]], PrimeQ[(13^# + 2^#)/15]&]
-
PARI
forprime(p=3,10^6, if(ispseudoprime((13^p + 2^p)/15), print1(p,", ") ) ); \\ Joerg Arndt, Jul 29 2013
Extensions
Removed incorrect first term of "2".
Comments