A178527 Primes p such that either p - 2 or p + 2 has more than two distinct prime divisors.
103, 107, 163, 167, 193, 197, 229, 233, 257, 271, 283, 313, 317, 347, 359, 383, 397, 401, 431, 433, 457, 463, 467, 523, 557, 563, 587, 593, 607, 613, 617, 643, 647, 653, 661, 691, 733, 739, 743, 757, 761, 797, 821, 823, 827
Offset: 1
Keywords
Links
- Charles R Greathouse IV, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Select[Prime[Range[200]], PrimeNu[# - 2] > 2 || PrimeNu[# + 2] > 2 &] (* Alonso del Arte, Dec 23 2010 *)
-
PARI
is(n)=isprime(n) && n>9 && (omega(n-2)>2||omega(n+2)>2) \\ Charles R Greathouse IV, Sep 24 2013
Comments