|
%I #8 Apr 03 2023 10:36:13
%S 2,3,0,11,397,839,1459,2081,7297,53849,3499,70589,792277,20399,
%T 11173873,929057,232591,6782759,5834299,26812151,40269673,88529891,
%U 368454343,616767917,1167319801,709939943
%N Least prime k such that k*2^n + 1 divides 2^k - 1, or 0 if no such prime exists.
%C If a(n) > 0, then a(n)*2^n + 1 is in A122094.
%H G. L. Honaker, Jr. and Chris Caldwell, <a href="https://t5k.org/curios/cpage/18226.html">Prime Curios! 232591</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/MersenneNumber.html">Mersenne Number</a>
%t lst = {}; Do[k = 2; If[n == 2, AppendTo[lst, 0], While[True, If[PrimeQ[k], f = k*2^n + 1; If[PrimeQ[f] && PowerMod[2, k, f] == 1, AppendTo[lst, k]; Break[]]]; k++]], {n, 0, 13}]; lst
%Y Cf. A001348, A002144.
%K more,nonn
%O 0,1
%A _Arkadiusz Wesolowski_, Nov 18 2012
|
