cp's OEIS Frontend

A176131 Lesser of twin primes p such that 6*p+1 is greater of twin primes.

%I A176131 #9 Dec 25 2019 04:50:07
%S A176131 3,5,17,107,137,347,2027,3257,4217,4547,9767,15137,20717,23537,25847,
%T A176131 32057,37307,38327,43607,48407,53147,53897,59357,60167,62927,86027,
%U A176131 90527,92957,94847,95987,98387,99137,99347,100517,102497,108707,111227
%N A176131 Lesser of twin primes p such that 6*p+1 is greater of twin primes.
%H A176131 Amiram Eldar, <a href="/A176131/b176131.txt">Table of n, a(n) for n = 1..10000</a>
%e A176131 3 is a term since 6*3 - 1 = 17 and 6*3 + 1 = 19 are twin primes.
%e A176131 5 is a term since 6*5 - 1 = 29 and 6*5 + 1 = 31 are twin primes.
%e A176131 17 is a term since 6*17 - 1 = 101 and 6*17 + 1 = 103 are twin primes.
%t A176131 lst={};Do[p0=Prime[n];p1=Prime[n+1];If[p1-p0==2&&PrimeQ[p2=p0*6+1]&&PrimeQ[p2-2],AppendTo[lst,p0]],{n,8!}];lst
%t A176131 Select[Transpose[Select[Partition[Prime[Range[11000]],2,1],#[[2]]-#[[1]]==2&]][[1]],And@@PrimeQ[6#+{1,-1}]&] (* _Harvey P. Dale_, Feb 05 2013 *)
%Y A176131 Cf. A000040, A001359, A006512.
%K A176131 nonn
%O A176131 1,1
%A A176131 _Vladimir Joseph Stephan Orlovsky_, Apr 09 2010, Apr 10 2010