%I
%S 2,3,7,1471,1483,61627,88731
%N Numbers n such that both n and (n1)*2^n+1 are primes.
%C Primes p such that (p1)*2^p+1 is also prime.
%e a(1)=2 because 2 and (21)*2^2+1=5 are both prime.
%e a(2)=3 because 3 and (31)*2^3+1=17 are both prime.
%e a(3)=7 because 7 and (71)*2^7+1=769 are both prime.
%t Select[Prime[Range[9000]],PrimeQ[(#1)2^#+1]&] (* _Harvey P. Dale_, Jan 19 2012 *)
%o (PARI) forprime(n=1,1e4,if(ispseudoprime((n1)<<n+1),print1(n", "))) \\ _Charles R Greathouse IV_, Oct 09 2011
%Y Subsequence of A128001.
%Y Cf. A029544, A196421, A196446.
%K nonn
%O 1,1
%A _JuriStepan Gerasimov_, Oct 02 2011
