login
A220703
Numbers k such that k^7 + 7*k + 7^k is prime.
1
2, 3, 17, 74, 120, 212, 528, 2348, 13820
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
Cf. A220528.
Sequence in context: A201455 A085874 A055739 * A342547 A245799 A056794
KEYWORD
nonn,more
AUTHOR
Vincenzo Librandi, Jan 07 2013
EXTENSIONS
a(9) from Michael S. Branicky, Jul 13 2023
STATUS
approved