%I A143794
%S A143794 7,13,61,181,317,827,1831,2657,2801,3181,3739,4093,4561,5011,5443,5531,
%T A143794 5653,6359,6659,9029,10729,11383,13109,13907,14489,15217,15859,16603,
%U A143794 17581,20393,21499,23537,25037,25169,26153,26959,27077,27803,27851
%N A143794 Primes of the form : prime(n)-n=prime, prime(n)+n=prime.
%e A143794 7-4=3,7+4=11; 13-6=7,13+6=19; 61-18=43,61+18=79.
%t A143794 lst={};Do[p=Prime[n];If[PrimeQ[p-n]&&PrimeQ[p+n],AppendTo[lst,p]],{n,
               8!}];lst
%Y A143794 Sequence in context: A015441 A091005 A133664 this_sequence A159198 A106976 
               A098478
%Y A143794 Adjacent sequences: A143791 A143792 A143793 this_sequence A143795 A143796 
               A143797
%K A143794 nonn
%O A143794 1,1
%A A143794 Vladimir Orlovsky (4vladimir(AT)gmail.com), Sep 01 2008