|
%I #13 Sep 08 2022 08:45:34
%S 2,5,11,17,23,29,41,47,53,59,67,71,83,89,101,107,109,113,131,137,149,
%T 151,167,173,179,191,193,197,199,211,227,233,239,251,257,263,269,277,
%U 281,293,311,313,317,331,347,353,359,367,383,389,397,401,419,431,443
%N Primes p such that p + 10 is not a prime.
%H Harvey P. Dale, <a href="/A140556/b140556.txt">Table of n, a(n) for n = 1..10000</a>
%t lst={};Do[If[ !PrimeQ[n+10]&&PrimeQ[n],AppendTo[lst,n]],{n,6!}];lst (* _Vladimir Joseph Stephan Orlovsky_, Feb 21 2009 *)
%t Select[Prime[Range[100]],!PrimeQ[#+10]&] (* _Harvey P. Dale_, Jun 13 2017 *)
%o (Magma)[p: p in PrimesUpTo(500)|not IsPrime(p+10)] // _Vincenzo Librandi_, Dec 18 2010
%K nonn
%O 1,1
%A _Juri-Stepan Gerasimov_, Jul 03 2008
%E Corrected by _Vladimir Joseph Stephan Orlovsky_, Feb 21 2009
|
