OFFSET
1,2
MATHEMATICA
Select[Range[10000], PrimeQ[#^5 + 5*# + 5^#]&]
PROG
(PARI) is(n)=ispseudoprime(n^5+5*n+5^n) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Vincenzo Librandi, Jan 07 2013
STATUS
approved