A367037 Numbers k such that k^3*2^k - 1 is a prime.
2, 8, 31, 79, 661, 769, 1904, 2527, 9032, 15895, 19171
Offset: 1
Crossrefs
Programs
-
Magma
[k: k in [1..700] | IsPrime(k^3*2^k-1)];
-
Mathematica
Select[Range[3000], PrimeQ[#^3*2^# - 1] &] (* Amiram Eldar, Nov 04 2023 *)
Extensions
a(11) from Hugo Pfoertner, Nov 02 2023
Comments