OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
6*19 - 7 = 107, 6*19 - 5 = 109; 107 and 109 are twin primes.
MATHEMATICA
Select[Range[2, 2000], And @@ PrimeQ[{#, 6#-5, 6#-7}] &] (* Amiram Eldar, Jan 15 2020 *)
Select[Prime[Range[300]], AllTrue[6#-{5, 7}, PrimeQ]&] (* Harvey P. Dale, Nov 18 2022 *)
PROG
(Magma) [p: p in PrimesUpTo(1000000)| IsPrime(6*p-5) and IsPrime(6*p-7)] // Vincenzo Librandi, Nov 16 2010
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Pierre CAMI, Dec 06 2003
STATUS
approved