A284919 Even integers E such that there is no prime p < E with E - p and E + p both prime.
0, 2, 4, 6, 28, 38, 52, 58, 62, 68, 74, 80, 82, 88, 94, 98, 112, 118, 122, 124, 128, 136, 146, 148, 152, 158, 164, 166, 172, 178, 182, 184, 188, 190, 206, 208, 212, 214, 218, 220, 224, 238, 242, 244, 248, 250, 256, 262, 268, 278, 284, 290, 292, 296, 298
Offset: 1
Keywords
Examples
k=28 is in the sequence because 5+23 = 28 and 11+17 = 28, and 28 + {5,11,17,23} are composite; k=26 is not in the sequence because 3+23 = 26, 7+19 = 26 and 13+13 = 26, but 26+3 = 29 (prime). - _Bob Selcoe_, Apr 06 2017
Links
- Robert G. Wilson v, Table of n, a(n) for n = 1..10000 (first 1000 terms from M. F. Hasler)
- Claudio Meller and others, New sequence, SeqFan list, April 5, 2017. (Click "next" for subsequent contributions.)
- Robert G. Wilson v, Graph of all terms < 100000
Crossrefs
Programs
-
Mathematica
fQ[n_] := Select[Select[Prime@Range@PrimePi@n, PrimeQ[n - #] &], PrimeQ[n + #] &] == {}; Select[2 Range[0, 150], fQ] (* Robert G. Wilson v, Apr 05 2017 *)
-
PARI
is(n)=!bittest(n,0)&&!forprime(p=2,n\2, isprime(n-p) && (isprime(n+p) || isprime(2*n-p)) && return) \\ Charles R Greathouse IV and M. F. Hasler, Apr 05 2017
Formula
a(n) = 2*A284928(n). - M. F. Hasler, Apr 06 2017
Comments