|
%I #9 Nov 21 2013 12:49:21
%S 2,3,5,173,191,331,373,421,443,467,499,503,523,619,641,659,701,719,
%T 733,751,761,811,821,863,919,929,1097,1103,1109,1129,1213,1237,1283,
%U 1301,1303,1361,1367,1373,1381,1427,1433,1447,1471,1487,1499,1531,1543
%N Primes p such that neither |p - 30| nor |p + 30| is prime.
%t Select[Prime[Range[500]],!PrimeQ[#-30]&&!PrimeQ[#+30]&] (* _Harvey P. Dale_, Apr 16 2011 *)
%K nonn
%O 1,1
%A _Juri-Stepan Gerasimov_, Jun 30 2008
%E Corrected (3, 5, 331 inserted) by _R. J. Mathar_, Apr 25 2010
%E Corrected (19 deleted) by Harvey P. Dale, Apr 16 2011.
|
