A140547 Primes p such that neither p - 10 nor p + 10 is prime.

2, 5, 11, 59, 67, 101, 109, 131, 151, 179, 193, 197, 199, 211, 227, 257, 263, 269, 277, 311, 313, 331, 353, 367, 397, 401, 461, 463, 479, 487, 491, 503, 521, 523, 541, 563, 569, 571, 593, 599, 601, 613, 619, 647, 659, 661, 677, 727, 739, 757, 769, 773, 809

Offset: 1

Author

Juri-Stepan Gerasimov, Jun 30 2008, Nov 07 2009

Keywords

• nonn
• easy

Crossrefs

Cf. A023203, A092146.

Programs

Mathematica

Select[Prime[Range[140]],!PrimeQ[#+10]&&(!PrimeQ[#-10]||#<10)&] (* James C. McMahon, Jul 12 2025 *)

Extensions

Edited by Charles R Greathouse IV, Mar 25 2010