%I A093706
%S A093706 3,5,11,29,41,71,137,281,461,599,641,787,827,881,1091,1129,1301,1409,
%T A093706 1607,1627,1951,2129,2267,2357,2381,2557,2687,2887,2917,3469,3527,3557,
%U A093706 3581,3967,4127,4229,4337,4547,4889,5009,5309,5741,6131,6133,6247,6343
%N A093706 Primes p such that (pp'-1)/2 is prime, where p' denotes the next prime 
               after p.
%t A093706 Prime[ Select[ Range[850], PrimeQ[(Prime[ # ]Prime[ # + 1] - 1)/2] &]]
%Y A093706 Cf. A048797.
%Y A093706 Sequence in context: A109249 A032364 A088357 this_sequence A109945 A045536 
               A019338
%Y A093706 Adjacent sequences: A093703 A093704 A093705 this_sequence A093707 A093708 
               A093709
%K A093706 nonn
%O A093706 1,1
%A A093706 Robert G. Wilson v (rgwv(AT)rgwv.com), Apr 10 2004