|
%I #7 Sep 08 2022 08:45:51
%S 1,2,3,4,5,8,11,14,15,27,41,50,51,111,143,171,316,350,503,843
%N Numbers n such that 2^n+2*n-1 is prime.
%t Select[Range[850],PrimeQ[2^#+2#-1]&] (* _Harvey P. Dale_, Jul 26 2021 *)
%o (Magma) [n: n in [1..1200] | IsPrime(2^n+2*n-1) ]
%o (PARI) is(n)=ispseudoprime(2^n+2*n-1) \\ _Charles R Greathouse IV_, Jun 13 2017
%Y Cf. A173168.
%K nonn
%O 1,2
%A _Vincenzo Librandi_, Mar 11 2010
|
