A367478 Numbers k such that k^6*2^k - 1 is a prime.
37, 43, 167, 217, 239, 349, 581, 1297, 5183, 9119, 10589, 15205, 18745, 25687, 26609, 33667, 35663, 73603, 82501, 89269
Offset: 1
Crossrefs
Programs
-
Magma
[k: k in [1..1000] | IsPrime(k^6*2^k-1)];
-
Mathematica
Select[Range[6000], PrimeQ[#^6*2^# - 1] &] (* Amiram Eldar, 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