A277688 Odd numbers k such that there is no prime p < k/2 with k - 2*p and k + 2*p both prime.
1, 3, 5, 19, 29, 31, 43, 49, 55, 59, 61, 71, 79, 83, 89, 91, 101, 109, 113, 115, 119, 125, 127, 131, 139, 149, 151, 155, 161, 163, 167, 169, 175, 179, 191, 193, 197, 199, 203, 209, 211, 215, 223, 227, 229, 239, 241, 247, 251, 253, 259, 265, 269, 271, 281, 283
Offset: 1
Keywords
Programs
-
Mathematica
Select[Range[1, 283, 2], Total@ Boole@ Map[Function[p, Times @@ Boole@ Map[PrimeQ, {# - 2 p, # + 2 p}] == 1], Prime@ Range@ PrimePi[#/2]] == 0 &] (* Michael De Vlieger, Apr 22 2017 *)
-
PARI
is(k)=bittest(k,0)&&!forprime(p=2,k\2,(isprime(k-2*p)&&isprime(k+2*p))&&return) \\ M. F. Hasler, Apr 11 2017
Extensions
More terms from Peter J. C. Moses, Apr 11 2017
Comments