%I #24 Sep 08 2022 08:46:14
%S 1,13,553,861,1983,2065,2403,4371,6226,6553,6580,10128,10998,11193,
%T 12411,12598,12909,13056,13194,13399,14589,15829,18429,18436,19315,
%U 19900,21574,23599,24006,24024,24415,25704,27225,27651,28689,29461,29805,29868,31143,31186,32674,33706,34306,35016,36118
%N Numbers n such that n*2^2203 - 1 is prime.
%C The exponent of 2 in the expression, 2203, is a Mersenne exponent.
%e n = 1 is a term since 2^2203 - 1 is prime (the 16th Mersenne prime).
%t Select[Range@ 36200, PrimeQ[# 2^2203 - 1] &] (* _Michael De Vlieger_, Dec 09 2015 *)
%o (MATLAB)
%o if isprime(n*2^2203-1)
%o disp(n)
%o end
%o (PARI) is(n)=ispseudoprime(n*2^2203-1) \\ _Anders Hellström_, Dec 09 2015
%o (Magma) [n: n in [1..7*10^3] |IsPrime(n*2^2203-1)]; // _Vincenzo Librandi_, Dec 10 2015
%Y Cf. A000043, A001348, A005122.
%K nonn
%O 1,2
%A _Vardan Semerjyan_, Dec 09 2015
%E More terms from _Michael De Vlieger_, Dec 09 2015