|
%I #8 Mar 10 2015 08:54:36
%S 2,7,11,13,41,71,79,101,107,109,131,139,157,173,191,199,223,229,233,
%T 239,251,281,311,313,337,347,349,379,389,401,409,421,431,439,461,467,
%U 479,487,491,499,503,521,541,547,569,619,641,643,653,683,701,709,727,739
%N Primes p such that neither p - 14 nor p + 14 is prime.
%H Harvey P. Dale, <a href="/A140548/b140548.txt">Table of n, a(n) for n = 1..1000</a>
%t Join[{2,7,11},Select[Prime[Range[2,200]],NoneTrue[#+{14,-14},PrimeQ]&]] (* The program uses the NoneTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Mar 10 2015 *)
%K nonn
%O 1,1
%A _Juri-Stepan Gerasimov_, Jun 30 2008, Aug 15 2009
%E Corrected (459 removed) by _R. J. Mathar_, Apr 25 2010
|
