%I
%S 2,3,19,29,43,61,79,109,151,167,2311
%N Numbers n such that both n and (n1)^2*2^n1 are primes.
%C Primes p such that (p1)^2*2^p1 is also prime.
%e a(1)=2 because 2 is a prime and (21)^2*2^21=3 is a prime,
%e a(2)=3 because 3 is a prime and (31)^2*2^31=31 is a prime,
%e a(3)=19 because 19 is a prime and (191)^2*2^191=169869313 is a prime,
%e a(4)=29 because 29 is a prime and (291)^2*2^291=420906795007 is a prime.
%t Select[Prime[Range[40]],PrimeQ[(#1)^2 2^#1]&] (* The program generates the first 10 terms *) (* _Harvey P. Dale_, Sep 06 2017 *)
%K nonn
%O 1,1
%A _JuriStepan Gerasimov_, Oct 02 2011
