%I #23 Sep 08 2022 08:46:14
%S 1,103,190,289,460,483,511,534,651,793,820,880,901,939,945,958,1045,
%T 1168,1195,1198,1216,1374,1408,1479,1489,1500,1521,1534,1539,1569,
%U 1599,1623,1630,1671,1678,1875,1938,1939,1963,1996,2028,2136,2140,2166,2179,2289
%N Numbers n such that n*2^127 - 1 is prime.
%C The exponent of 2 in the expression, 127, is a Mersenne exponent.
%e n = 1 is a term since 2^127 - 1 is prime (the 12th Mersenne prime).
%t Select[Range@ 2560, PrimeQ[# 2^127 - 1] &] (* _Michael De Vlieger_, Dec 09 2015 *)
%o (MATLAB)
%o if isprime(n*2^127-1)
%o disp(n)
%o end
%o (PARI) is(n)=ispseudoprime(n*2^127 - 1) \\ _Anders Hellström_, Dec 09 2015
%o (Magma) [n: n in [1..3*10^3] |IsPrime(n*2^127-1)]; // _Vincenzo Librandi_, Dec 10 2015
%Y Cf. A000043, A001348, A005122.
%K nonn,easy
%O 1,2
%A _Vardan Semerjyan_, Dec 09 2015
|