The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #15 Oct 27 2024 13:03:14
%S 2,3,17,74,120,212,528,2348,13820,41268
%N Numbers k such that k^7 + 7*k + 7^k is prime.
%t Select[Range[5000], PrimeQ[#^7 + 7*# + 7^#]&]
%o (PARI) is(n)=ispseudoprime(n^7+7*n+7^n) \\ _Charles R Greathouse IV_, Jun 13 2017
%Y Cf. A220528.
%K nonn,more
%O 1,1
%A _Vincenzo Librandi_, Jan 07 2013
%E a(9) from _Michael S. Branicky_, Jul 13 2023
%E a(10) from _Michael S. Branicky_, Oct 27 2024