login
Near twin primes of order 18: twin primes (p, p+2) such that p+18 and p+20 are primes.
1

%I #10 Dec 26 2019 05:05:09

%S 11,41,179,599,641,809,1031,1301,1931,2111,2711,3371,3539,4001,4241,

%T 5501,5639,5849,6551,6761,7331,8819,9419,11699,13691,15269,16631,

%U 17189,17579,18041,18521,22091,22619,23039,23669,26681,26711,26861,30851

%N Near twin primes of order 18: twin primes (p, p+2) such that p+18 and p+20 are primes.

%H Amiram Eldar, <a href="/A079304/b079304.txt">Table of n, a(n) for n = 1..10000</a>

%F Seq(d, n) = if(n prime & n+2 prime and n+d prime and n+d+2 prime) output n d=18.

%e 11 is a term since 11, 11 + 2 = 13, 11 + 18 = 29 and 11 + 20 = 31 are all primes.

%t Select[Range[3*10^4], And @@ PrimeQ[# + {0, 2, 18, 20}] &] (* _Amiram Eldar_, Dec 26 2019 *)

%Y A007530 gives twin primes of order 6.

%K easy,nonn

%O 1,1

%A _Cino Hilliard_, Feb 09 2003

%E Offset corrected by _Amiram Eldar_, Dec 26 2019