|
%I #18 Mar 26 2024 06:01:56
%S 2,5,7,11,17,23,31,37,59,61,73,109,137,149,191,199,227,229,269,271,
%T 331,353,373,401,479,499,523,541,607,683,719,787,809,829,947,997,1061,
%U 1109,1181,1193,1297,1523,1531,1607,1619,1627,1657,1699,1733,1831,1879,2011
%N Primes p such that 10*p - 3 and 10*p + 3 are both primes.
%H Michael De Vlieger, <a href="/A106008/b106008.txt">Table of n, a(n) for n = 1..10000</a>
%F A093013 INTERSECT A000040. - _R. J. Mathar_, Mar 26 2024
%t Select[Prime[Range[120]], PrimeQ[10#+3]&&PrimeQ[10#-3]&]
%o (Magma) [p: p in PrimesUpTo(2100) | IsPrime(10*p-3) and IsPrime(10*p+3)]; // _Vincenzo Librandi_, Nov 13 2010
%K nonn
%O 1,1
%A _Zak Seidov_, May 05 2005
|
