%I A087695
%S A087695 8,10,14,16,20,26,34,40,44,50,56,64,70,76,86,100,104,106,110,134,154,
%T A087695 160,170,176,194,196,226,230,236,254,260,266,274,280,310,314,334,350,
%U A087695 356,370,376,386,436,446,460,464,506,544,560,566,574,590,596
%N A087695 Numbers n such that n +/- 3 are both prime.
%p A087695 ZL:=[]:for p from 1 to 600 do if (isprime(p) and isprime(p+6) ) then 
               ZL:=[op(ZL),(p+(p+6))/2]; fi; od; print(ZL); - Zerinvary Lajos (zerinvarylajos(AT)yahoo.com), 
               Mar 07 2007
%t A087695 lst={};Do[If[PrimeQ[n-3]&&PrimeQ[n+3], AppendTo[lst, n]], {n, 10^3}];
               lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Sep 08 2008]
%Y A087695 Cf. A014574, A087678-A087683, A087695-A087697, A088763.
%Y A087695 Equals A046117 - 3.
%Y A087695 Sequence in context: A167692 A163628 A060864 this_sequence A134321 A027693 
               A100718
%Y A087695 Adjacent sequences: A087692 A087693 A087694 this_sequence A087696 A087697 
               A087698
%K A087695 easy,nonn
%O A087695 1,1
%A A087695 Zak Seidov (zakseidov(AT)yahoo.com), Sep 27 2003