A140556 Primes p such that p + 10 is not a prime.

2, 5, 11, 17, 23, 29, 41, 47, 53, 59, 67, 71, 83, 89, 101, 107, 109, 113, 131, 137, 149, 151, 167, 173, 179, 191, 193, 197, 199, 211, 227, 233, 239, 251, 257, 263, 269, 277, 281, 293, 311, 313, 317, 331, 347, 353, 359, 367, 383, 389, 397, 401, 419, 431, 443

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..10000

Mathematica

lst={}; Do[If[ !PrimeQ[n+10]&&PrimeQ[n], AppendTo[lst, n]], {n, 6!}]; lst (* Vladimir Joseph Stephan Orlovsky, Feb 21 2009 *)
Select[Prime[Range[100]], !PrimeQ[#+10]&] (* Harvey P. Dale, Jun 13 2017 *)

Prog

(Magma)[p: p in PrimesUpTo(500)|not IsPrime(p+10)] // Vincenzo Librandi, Dec 18 2010

Crossrefs

Sequence in context: A350314 A164921 A156830 * A003627 A103203 A105875

Adjacent sequences: A140553 A140554 A140555 * A140557 A140558 A140559

Keyword

nonn

Author

Juri-Stepan Gerasimov, Jul 03 2008

Extensions

Corrected by Vladimir Joseph Stephan Orlovsky, Feb 21 2009

Status

approved