OFFSET
1,1
MATHEMATICA
Select[Range[5000], PrimeQ[#^8*2^# - 1] &] (* Amiram Eldar, Nov 23 2023 *)
PROG
(Magma) [k: k in [1..4000] | IsPrime(k^8*2^k-1)];
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Juri-Stepan Gerasimov, Nov 23 2023
EXTENSIONS
a(19)-a(20) from Michael S. Branicky, Nov 23 2023
a(21) from Michael S. Branicky, Nov 25 2023
a(22)-a(24) from Michael S. Branicky, Aug 29 2024
STATUS
approved