%I A158708
%S A158708 2,5,13,29,41,53,73,101,109,149,181,233,281,293,349,401,409,421,449,461,
%T A158708 541,569,613,661,673,701,709,769,809,821,853,881,953,1021,1033,1109,
%U A158708 1129,1193,1201,1249,1289,1301,1409,1429,1453,1481,1493,1669,1693,1789
%N A158708 Primes p such that Floor[p/2]+p is prime.
%C A158708 Floor[5/2]+5=7, Floor[13/2]+13=19, ...
%t A158708 lst={};Do[p=Prime[n];If[PrimeQ[Floor[p/2]+p],AppendTo[lst,p]],{n,6!}];
               lst
%Y A158708 Sequence in context: A002559 A049097 A045366 this_sequence A093702 A011756 
               A050950
%Y A158708 Adjacent sequences: A158705 A158706 A158707 this_sequence A158709 A158710 
               A158711
%K A158708 nonn
%O A158708 1,1
%A A158708 Vladimir Orlovsky (4vladimir(AT)gmail.com), Mar 24 2009