OFFSET
1,2
COMMENTS
Corresponding primes are in A075984.
MATHEMATICA
k = 1; lst = {}; While[k < 30001, If[ PrimeQ[k^5 + 6^k], AppendTo[lst, k]; Print@ k]; k++]; lst (* Robert G. Wilson v, Dec 16 2010 *)
Select[Range[5500], PrimeQ[#^5+6^#]&] (* Harvey P. Dale, Feb 14 2018 *)
PROG
(Magma) [n: n in [0..900] | IsPrime(n^5+6^n)]; // Vincenzo Librandi, Dec 16 2010
(PARI) is(n)=ispseudoprime(n^5+6^n) \\ Charles R Greathouse IV, Jun 12 2017
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Zak Seidov, Oct 17 2002
EXTENSIONS
a(7)-a(8) from Michael S. Branicky, Aug 10 2024
STATUS
approved