%I

%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