|
%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
|
