|
%I #8 Jun 13 2017 10:30:48
%S 1,2,3,4,6,19,23,63,76,508,561,839,894,1389,2513,3436,6121,7412,8418,
%T 9184
%N Numbers n such that n^5 + 5*n + 5^n is prime.
%t Select[Range[10000], PrimeQ[#^5 + 5*# + 5^#]&]
%o (PARI) is(n)=ispseudoprime(n^5+5*n+5^n) \\ _Charles R Greathouse IV_, Jun 13 2017
%Y Cf. A220511.
%K nonn
%O 1,2
%A _Vincenzo Librandi_, Jan 07 2013
|
