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.

59, 149, 197, 227, 347, 461, 521, 569, 857, 1061, 1229, 1277, 1289, 1301, 1481, 1667, 1721, 1787, 2129, 3251, 3257, 3371, 3389, 3581, 3929, 4001, 4217, 4241, 4337, 4421, 4517, 4547, 5009, 5477, 5501, 5657, 6689, 6827, 6869, 7211, 7457, 7757, 7877, 8291

Offset

1,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..500

Example

6*2*5 = 60, {59, 61} twin primes.
6*5*5 = 150, {149, 151} twin primes.
6*3*11 = 198, {197, 199} twin primes.

Mathematica

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 *)
Take[Union[Select[6#-1&/@Times@@@Tuples[Prime[Range[200]], 2], And@@ PrimeQ[ {#, #+2}]&]], 50] (* Harvey P. Dale, May 22 2012 *)

Crossrefs

Sequence in context: A156796 A183348 A106756 * A142319 A140687 A118154

Adjacent sequences: A102165 A102166 A102167 * A102169 A102170 A102171

Keyword

nonn

Author

Pierre CAMI, Mar 15 2005

Extensions

More terms from Robert G. Wilson v, Mar 24 2005

Status

approved