OFFSET
1,1
MATHEMATICA
Select[Range[5000], PrimeQ[#^7 + 7*# + 7^#]&]
PROG
(PARI) is(n)=ispseudoprime(n^7+7*n+7^n) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Vincenzo Librandi, Jan 07 2013
EXTENSIONS
a(9) from Michael S. Branicky, Jul 13 2023
STATUS
approved