%I #21 Jul 29 2013 12:02:18
%S 3,67,199,479,563,2243,2579,6599,7951,10099,10909,13759
%N Numbers n such that (15^n + 2^n)/17 is prime.
%C All terms are odd primes.
%C a(13) > 10^5.
%t Select[Prime[Range[1, 100000]], PrimeQ[(15^# + 2^#)/17]&]
%o (PARI) forprime(p=3,10^6, if(ispseudoprime((15^p + 2^p)/17), print1(p,", ") ) ); \\ _Joerg Arndt_, Jul 29 2013
%Y Cf. A057181, A125956, A125957, A222265.
%K nonn,hard,more
%O 1,1
%A _Robert Price_, May 07 2013
%E Removed incorrect first term of "2".