cp's OEIS Frontend

A102168 Smaller of twin primes of the form 6*p(j)*p(k)-1, 6*p(j)*p(k)+1 where p(i)=i-th prime.

%I A102168 #12 Mar 29 2015 16:36:34
%S A102168 59,149,197,227,347,461,521,569,857,1061,1229,1277,1289,1301,1481,
%T A102168 1667,1721,1787,2129,3251,3257,3371,3389,3581,3929,4001,4217,4241,
%U A102168 4337,4421,4517,4547,5009,5477,5501,5657,6689,6827,6869,7211,7457,7757,7877,8291
%N A102168 Smaller of twin primes of the form 6*p(j)*p(k)-1, 6*p(j)*p(k)+1 where p(i)=i-th prime.
%H A102168 Vincenzo Librandi, <a href="/A102168/b102168.txt">Table of n, a(n) for n = 1..500</a>
%e A102168 6*2*5 = 60, {59, 61} twin primes.
%e A102168 6*5*5 = 150, {149, 151} twin primes.
%e A102168 6*3*11 = 198, {197, 199} twin primes.
%t A102168 t = Sort[ Flatten[ Table[6Prime[i]Prime[j], {i, 125}, {j, i}]]]; Take[ Select[t, PrimeQ[ # - 1] && PrimeQ[ # + 1] &] - 1, 44] (* _Robert G. Wilson v_, Mar 24 2005 *)
%t A102168 Take[Union[Select[6#-1&/@Times@@@Tuples[Prime[Range[200]],2],And@@ PrimeQ[ {#,#+2}]&]],50] (* _Harvey P. Dale_, May 22 2012 *)
%K A102168 nonn
%O A102168 1,1
%A A102168 _Pierre CAMI_, Mar 15 2005
%E A102168 More terms from _Robert G. Wilson v_, Mar 24 2005