OFFSET
1,1
MATHEMATICA
Select[Range[6000], PrimeQ[#^6*2^# - 1] &] (* Amiram Eldar, Nov 19 2023 *)
PROG
(Magma) [k: k in [1..1000] | IsPrime(k^6*2^k-1)];
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Juri-Stepan Gerasimov, Nov 19 2023
EXTENSIONS
a(12) inserted by and a(14)-a(17) from Michael S. Branicky, Nov 19 2023
a(18)-a(20) from Michael S. Branicky, Nov 21 2023
STATUS
approved