%I #14 Aug 26 2024 21:09:15

%S 2,6,9,18,42,132,139,482,523,524,859,909,948,979,1158,1741,2364,3519,

%T 4388,5952,6266,8564,12169,14448,54944,103526,116563,125918

%N Numbers k such that k^5*2^k - 1 is a prime.

%t Select[Range[2500], PrimeQ[#^5*2^# - 1] &] (* _Amiram Eldar_, Nov 19 2023 *)

%o (Magma) [k: k in [1..1000] | IsPrime(k^5*2^k-1)];

%Y Numbers k such that k^m*2^k - 1 is a prime: A000043 (m = 0), A002234 (m = 1), A058781 (m = 2), A367037 (m = 3), A367102 (m = 4), this sequence (m = 5).

%Y Cf. A367421.

%K nonn,more

%O 1,1

%A _Juri-Stepan Gerasimov_, Nov 18 2023

%E a(24)-a(25) from _Michael S. Branicky_, Nov 18 2023

%E a(26)-a(28) from _Michael S. Branicky_, Aug 26 2024