A181291 - OEIS

%I #18 Dec 22 2014 09:34:17

%S 3,5,17,29,37,47,53,61,67,103,131,239,433,613,1907,2339,3319,3467,

%T 4157,4831,6221,6257,6737,6967,7517,8807,15101,15901,27197,58207,

%U 100703,144847,324871,607703

%N Primes P(k) such that (2^k-P(k))*2^k-1 is prime.

%o (PARI) is(n,k=primepi(n))=ispseudoprime((2^k-n)*2^k-1) && isprime(n)

%o c=0;forprime(p=2,1e9,if(is(p,c++),print1(p", "))) \\ _Charles R Greathouse IV_, Nov 25 2014

%K nonn

%O 1,1

%A _Pierre CAMI_, Jul 09 2011

%E Incorrect a(34) removed by _Charles R Greathouse IV_, Nov 25 2014

%E a(34) from _Charles R Greathouse IV_, Dec 22 2014