%I A046117
%S A046117 11,13,17,19,23,29,37,43,47,53,59,67,73,79,89,103,107,109,113,137,157,
%T A046117 163,173,179,197,199,229,233,239,257,263,269,277,283,313,317,337,353,
%U A046117 359,373,379,389,439,449,463,467,509,547,563,569,577,593,599,607,613
%N A046117 Values of p+6 where (p,p+6) are both prime.
%H A046117 T. D. Noe, <a href="b046117.txt">Table of n, a(n) for n=1..1000</a>
%H A046117 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               SexyPrimes.html">Link to a section of The World of Mathematics.</
               a>
%t A046117 q=6; a={}; Do[p1=Prime[n]; p2=p1+q; If[PrimeQ[p2], AppendTo[a, p2]], 
               {n, 7^2}]; a "and/or" Select[Prime[Range[3, 7^2]], PrimeQ[ # ]&&PrimeQ[ 
               #-6]&] [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Aug 07 2008]
%Y A046117 Cf. A023201, A046117.
%Y A046117 Cf. A098428.
%Y A046117 Equals A087695 + 3.
%Y A046117 Sequence in context: A078875 A052293 A038842 this_sequence A091923 A050719 
               A098415
%Y A046117 Adjacent sequences: A046114 A046115 A046116 this_sequence A046118 A046119 
               A046120
%K A046117 nonn
%O A046117 1,1
%A A046117 Eric Weisstein (eric(AT)weisstein.com)