OFFSET
1,1
MATHEMATICA
Select[Range[6000], PrimeQ[#^4*2^# - 1] &] (* Amiram Eldar, Nov 05 2023 *)
PROG
(Magma) [k: k in [1..500] | IsPrime(k^4*2^k-1)];
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Juri-Stepan Gerasimov, Nov 04 2023
EXTENSIONS
a(17)-a(18) from Amiram Eldar, Nov 05 2023
a(19) from Michael S. Branicky, Nov 05 2023
a(20)-a(23) from Hugo Pfoertner, Nov 08 2023, Nov 10 2023
STATUS
approved