|
%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
|
