%I A045536
%S A045536 3,5,11,29,41,179,191,239,281,419,431,641,659,809,1019,1031,1049,1229,
%T A045536 1289,1451,1481,1931,2129,2141,2339,2549,2969,3299,3329,3359,3389,3539,
%U A045536 3821,3851,4019,4271,4481,5231,5279,5441,5501,5639,5741,5849,6131
%N A045536 Twin primes which are also Sophie Germain primes.
%t A045536 lst={3}; Do[p1=Prime[n]; p2=Prime[n+1]; d=2; If[p2-p1==d, If[PrimeQ[2*p1+1], 
               AppendTo[lst, p1]]; If[PrimeQ[2*p2+1], AppendTo[lst, p2]]], {n, 3, 
               20^2}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Aug 
               07 2008]
%Y A045536 Cf. A005384.
%Y A045536 Sequence in context: A088357 A093706 A109945 this_sequence A019338 A046134 
               A080443
%Y A045536 Adjacent sequences: A045533 A045534 A045535 this_sequence A045537 A045538 
               A045539
%K A045536 nonn
%O A045536 0,1
%A A045536 Thomas Kellar (tkellar(AT)fsp.com)
%E A045536 Corrected by Jud McCranie (j.mccranie(AT)comcast.net), Dec 30 2000