%I #17 Sep 08 2022 08:46:14
%S 1,1362,1756,1905,2337,2707,2902,2997,3487,3492,3787,3879,4045,4266,
%T 4374,4680,5106,5691,5766,6321,6352,6585,6819,7056,7099,7162,7470,
%U 7627,8055,8061,8121,8499,8511,8785,8865,9432,9636,9876,10116,10389,10629,10752,11262
%N Numbers n such that n*2^521 - 1 is prime.
%C The exponent of 2 in the expression, 521, is a Mersenne exponent.
%e n = 1 is a term since 2^521-1 is prime (13th Mersenne prime).
%t Select[Range@ 12050, PrimeQ[# 2^521 - 1] &] (* _Michael De Vlieger_, Dec 09 2015 *)
%o (MATLAB)
%o if isprime(n*2^521-1)
%o disp(n)
%o end
%o (Magma) [n: n in [1..2*10^4] |IsPrime(n*2^521-1)]; // _Vincenzo Librandi_, Dec 10 2015
%o (PARI) is(n) = ispseudoprime(n*2^521 - 1); \\ _Altug Alkan_, Dec 10 2015
%Y Cf. A000043, A001348, A005122.
%K nonn,easy
%O 1,2
%A _Vardan Semerjyan_, Dec 09 2015
|